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SEQ 0001 



C 1 

1 ABSTRACT: 

THE KWn-C DIAGNOSTIC FWGRAM PROVIDES A Sfo QOO? 

SERIES Of TESTS DESIGNED TO VARIFY THE INTEGRITY 
AND OPER>«ILITy OF THE KUll-C CLOCK.ONE OF THE 
TEST IS VISUAL ONLY. HOWEVER ALL TESTS WILL RUN WITH 
WITHOUT A DISPLAY COW* C TED TO THE SYSTEW. 

THE DIAGNOSTIC MODULE CONSISTS OF 17 TESi 
ELEMENTS PLUS /ARIOUS SUPPORTING SUBROUTINES AND 
SEQUENCES. 

2 .0 REQUIREMENTS: 

2 .1 EQUIPMENT 

PDP 11 PROCESSOR 

CONSOLE DEVICE aA30,LA36,VT50.VT100, ETC) 
KW11-C CLOCK 

DESIRED EQUIPMENT 

KW11-P OR KWll-L CLOCK 

2 .2 PROGRAM STORAGE 

PROGRAM REQUIRES 8 K WORDS OR MORE MEMORY 

2 .3 SOFTWARE 

ABSOLUTE LOADER OR OTHER INPUT MEDIUM 
5 .0 SWITCH REGISTER ASSIG^f1ENTS: 

SW08(1)=L00P ON TEST IN SWR<7;0> 
SW08(0)=D0 ALL TESTS IN SEQUENCE 

SW09(1)=L00P ON ERROR 
SW09(0)=:C0NTINU£ ON ERROR 

SW10(1}^ELL ON ERROR 
SW10(0}3NO BELL ON ERROR 

SWn(1)=INHIBIT ITERATIONS 
SW11(0)=ALLOW ITERATIONS 

SW13(1)=INHIBIT ERROR TYPEOUTS 
SW13(0)=ALLOW ERROR TYPEOUTS 

SWU(1)=L00P ON TEST 
SWU(0)=DON'T LOOP ON TEST 



•lOTE: 



D 1 

SU15(1)=HALT ON ERROR 

SW1 5(0; -CONTINUE ON ERROR SEQ 0005 

COIVUTERS WITHOUT A HARDWARE SWITCH REGISTER HAVE A 
SOFTWARE SWITCH REGISTER LOCATED IN MEMORY AT LOCATION 
176 CALLED SWREG. THIS LOCATION CAN BE CHANGED EITHER 
MANUALLY OR BY TYPING THE CNTL+G KEYES TOGETHER 
THEN RESPONDING TO THE TERMINAL DIALOGUE. 



4 .0 LOADING PROCEDURE: 



THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
SHOULD BE USED 

IF THE PROGRAM RESIDES ON A MASS STORAGE DEVICE SUCH AS 
MAGTAPE OR DISK REFER TO THE XXDP USER'S GUIDE. 



5 .0 STARTING PROCEDURE: 



5 .1 STARTING ADDRESSES 



INITIAL STATING ADDRESS IS 200 
RESTART ADDRESS IS 200 



*) .? STARTING SEQUENCE 



LOAD PROGRAM ACCORDING TO LOADING PROCEDURE 
LOAD ADDRESS 200 AND START COMPUTER. 

FIRST TIME PROGRAM PRINTS THE NAME OF THE PROGRAM. 
AND ALSO PRINTS HELP MESSAGE WHICH IS SELF EXPLANATORY. 
THE MONITOR PROMPTS WITH(?)FOR OPERATOR'S INPUT. 
CHARACTER TYPED MUST BE TERMINATED BY 'CR'. 
HELP MESSAGE PRINTS AS FOLLOWS 

SELECT FUNCTION BELOW , TYPE CHARACTER CARRIAGE RETURN. 
•T' TEST CLOCK (CONTROL C TO EXIT) 
•S' TO SET CLOCK 
•R* TO READ CLOCK 

•M' TO MODIFY/READ ADDRESS AND VECTOR 

'A' ACCURACY OF CLOCK 

'G' CHANGE SOFTWARE SWITCH REGISTER 

•E* EXIT HALTS CPU 

•H' HELP PRINTS THIS MESSAGE. 



WHEN MONITOR PROMPTS WITH(?) OPERATOR CAN TYPE ANY 
ONE OF ABOVE CHARACTER FOLLOWED BY A 'C«'. 



E 1 

IF YOU yANT TO TEST THE CLOCK TYPE 'T' 'CR' 
PROOMW START' TESTING THE CLOCK. TO EXIT FROM ANY TEST TYPE 
CONTRa C. WHEN PROGRAM RECOGNIZES CONTROL C CHARACTER. 
PROGRAM PROMPTS WITH *?' TO INDICATE NOW IN MONITOR MODE 
FROM WHICH YOU CAN AGAIN 60 BACK TO TEST THE CLOCK OR 
CAN SELECT THE FUTJlTiONS DESCRIBED ABOVE. 

HOW TO SET CLOCK 



FIRST MAKE SURE VOU ARE IN A MONITOR MODE (?). 
TYPE 'S' FOLLOWED BY A 'CR* TO SET CLOCK. 

WHEN SETTING CLOCK. YOU MUST ENTER VALUES IN ALL FIELD IN 
PROPER FORMAT. LETTERS IN FIELD INDICATES NUMBER OF DIGITS 
TO BE TYPED FOR THE FIELD. TYPE 'CR* TO TERMINATTE ENTERING 
VALUE. 



HOW TO READ CLOCK 



MAKE SURE YOU ARE IN A MONITOR MODE(?). 
TYPE 'R'AND 'CR'. PROGRAM PRINTS YEAR,JULIAN DAY.MONTH, 
DAY . HOUR .MINUTE.SECOND. 

HOW TO MODIFY/READ ADDRESS. VECTOR AND BUS REQUEST LEVEL. 



MAKE SURE YOU ARE IN A MONITOR MODE (?). TYPE 
•M'AND'CR' IF YOU WISH TO READ/MODIFY ADDRESSES. FIRST PROGRAM 
PRINTS CURRENT DEVICE ADDRESS AND WAITS FOR OPERATOR'S RESPOND. 
TYPE NEW ADDRESS IF YOU WISH TO CHANGE THE ADDRESS,OR JUST 
'CR' FOR NO CHANGE IN CURRENT ADDRESS.NOU PROGRAM PRINTS THE 
CURRENT VECTOR ADDRESS AND SIMILARLY WAITS FOR OPERATOR'S 
RESPOND. DO AS ABOVE IF YOU WISH TO CHANGE THE ADDRESS OR IF 
YOU DON'T. LAST PROGRAM PRINTS BUS REQUEST LEVEL. AFTER RESPON 
DING TO CURRENT PRINT OUT YOU ARE BACK INTO MONITOR MODE. 

NORMAL ADDRESSES ARE AS FOLLOWS 
DEVICE ADDRESS = 760200 
VECTOR ADDRESS = 300 
BUS REQUEST LEVEL = 6 

HOW TO TEST ACCURACY OF CLOCK 



WHEN YOU ARE IN A MONITOR MODE TYPING 'A' FOLLOWED BY 
•CR' PROGRAM GOES TO THE ROUTINE FOR TESTING ACCURACY 
OF CLOCK. 

FOLLOWING QUESTIONS WILL BE ASKED: 
L-CLK (L) N ? 
P-CLK (L) N ? 
•TYPE TWO CHARACTERS AT 60 SEC APART' 
ANSWER FIRST TWO QUESTIONS WITH <CR> IF ANSWER 
IS AFFERMATIVE AND WITH <N><CR> FOR NEGATIVE ANSUER. 



SEQ 0004 
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IF BOTH ANSWER A»E f^GATlVE PROGRAM WILL ASK TO TVPE TWO 

CHARACTERS AT 60 SECONDS APART. PLEASE BE VERY ACCURATE SEQ 0005 

IN TYPING TWO CHARACTERS AT EXACTLY 60 SECONDS APART. THE 
PERIOD BETWEEN TWO CHARACTERS TYPED WILL BE USED TO 
DETERMINE THE TIME BASE FOR THE KWll-C. 

THE ERROR MESSAGE WILl BE PRINTED IF CLOCK IS NOT ACCURATE. 
THEN THE PROGRAM GOES TO MONITOR MODEC?). 

IF THE CLOCK IS ACCURATE THERE WON'T BE ANY MESSAGE AND 
PROGRAM PROMPT WITH <?> IWICATE IN MONITOR MODE. 

HOW TO CHANGE SOFTWARE SWITCH REGISTER 

WHEN YOU ARE IN A MONITOR M00£(?) , TYPE 'G* 'CR* 
PROGRAM PRINTS OLD CONTENT OF SOFTWARE SWITCH REGISTER 
AND WAITS FOR NEW VALUE. IF YOU DO NOT WANT TO CHANGE THE 
OLD VALUE IN SOFTWARE SWITCH REGISTER JUST TYPE 'CR*. 

WHEN YOU ARE TESTING THE CLOCK 'T*, TYPING CONTROL 'G' 
PRINTS OLD CONTENT OF SOFTWARE SWITCH REGISTER AND WAITS 
FOR NEW VALUE AS ABOVE. SO USE <CONTROL G> WHEN TESTING 
CLOCK. 

HELP MESSAGE 

IN MONITOR MODE TYPING 'H' 'CR' PRINTS 

SELECT FUNCTION BELOW, TYPE CHARACTER CARRIAGE RETURN. 

'T' TEST CLOCK (CONTOL C TO EXIT) 

•S' TO SET CLOCK 

•R' TO READ CLOCK 

•M' TO MODIFY/READ ADDRESS AND VECTOR 

'A' ACCURACY OF CLOCK 

'G' CHECK/MODIFY SOFTWARE SWITCH REGISTER 

•E' EXIT HALTS CPU 

•H* HELP PRINTS THIS MESSAGE. 

5 .0 PRELIMINARY OPERATIONS: 

5 .1 DEVICE ADDRESSES AND VECTOR ADDRESSES 

OE FAUL T.- 
DEVI CE ADDRESSES: 760200 
760202 
760204 
CSR: 760206 

VECTOR(O): 300 
VECTOR (2): 30A 

BR: 6 



5 .3 

6 .0 



PR{1 IMlNARy PROGRAMS NEEDED 



NONE 

OPERATIONAL oftOCEDURES: 



G 1 



SEO 0006 



7 .0 



NORMAL OPERATION IS WITH ALL SWITCHS ON 0. 
ERRORS: 



EX1 



Exr 



EACH ERROR SIGNATURE CONSISTS OF ONE OR MORE LINES 

OF TEXT, DESCRIBING THE ERROR AND ALSO INCLUDES 

EXPECTED VS RECEIVED DATA, CONTENT OF CSR AT TIME OF ERROR 

TEST NlfBER bKRE APPLICABLE. 

FOLLOWINGS ARE EXAMPLES OF ERROR PRINT OUT 



•READY BIT FAR TO SET IN CSR' 
TEST* CSR 
7 00000 



ERROR 
PC 

5432 



WHERE 
ERROR 

PC GIVES THE ADDRESS WHERE ERROR OCCURED. 

TEST# TELLS THE TEST Nl/CER WHERE ERROR OCCURED. 
CSR TELLS THE CONTENT OF CSR AT TIME OF ERROR. 
•READ VALUE NOT MATCH WITH EXPECTED' 

TEST* GOOD BAD CSR 

21 00000 00073 00200 

WHERE 

GOOD IS EXPECTED VALUE 
BAD IS ACTUAL VALUE READ. 



ERROR 
PC 

5432 



EX3: 



OTHER FIELDS ARE SAME AS ABOVE. 

•HOLD BIT FAIL TO RESET* 
ERROR TEST* PRESEC CURSEC CSR 

PC 

6010 11 20 25 000001 



H 1 

WHERE 

P<»ESEC IS THE VALUE Of SECOND BEFORE HOLD BIT SET 
<'URSEC IS THE VALUE OF SECOND AT TIME OF ERROR. 

EXECUTION TIME: 

EXECUTION TjnE VARY SOnEWHAT.DEPENDING 
ON CPU TYPE. THE FOLLOWING ARE EXECUTION TIME OBSERVED ON 
PDP11/5«. 

QUICK PASS: 6MIN,20SEC 
SUBSEQUENT PASS: U«IN,30SEC 



SEO 0007 
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11 167400 

12 000001 
13 

U 

(1) 001100 



000011 
000012 
000015 
000200 
177776 

1 7777U 
y77772 
\77'i7Q 
^77^7^ 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 
000007 



000000 
000040 
000100 
000140 
000200 
■ ?40 




100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
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SFO 0008 



$SUR=1 67400 
$TN-1 

.S8TTL BASIC DEFINITIONS 

.••INITIAL ADDRESS OF THE STACK POINTER 1100 »»• 
STACK= 1100 

•EOUIV EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 

• EOUIV lOT, SCOPE ; .-BASIC DEFINITION OF SCOPE CALL 



.••MISCELLANEOUS DEFINITIONS 

CODE FOR HORIZONTAL TAB 
CODE FOR LINE FEED 
CODE FOR CARRIAGE RETURN 
CODE FOR CARRIAGE RETURN-LINE FEED 
PROCESSOR STATUS WORD 



HT= 
LF = 
CR= 
CRLF= 
PS= 
.EOUIV 



11 
12 
15 
200 
177776 
PS.PSU 



STKLMT= 17^774 
PIRQ= ^77772 
DSWR= 1 77570 
DDISP= 177570 



STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



.■•GENERAL PURPOSE REGISTER DEFINITIONS 



R0= 
R1 = 
R2= 
R3= 
R4= 
R5= 
R6= 
R7= 
SP= 
PC= 



XO 
XI 
X2 
X3 
X4 
X5 
X6 
X7 
X6 
X7 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRMi COUNTER 



.••PRIORITY LEVEL DEFINITIONS 



PRO= 
PR1 = 
PR2= 
PR3= 
PR4= 
PR5= 
PR6= 
PR7= 



0 
40 
100 
140 
200 
240 
300 
340 



PRIORITY LEVEL 0 
PRIORITY LEVEL 1 
PRIORITY LEVEL 2 
PRIORITY LEVEL 3 
PRIORITY LEVEL 4 
PRIORITY LEVEL 5 
PRIORITY LEVEL 6 
PRIORITY LEVEL 7 



.-•"SWITCH REGISTER" SWITCH DEFINITIONS 



SW15= 
SW14= 
SW13= 
SW12= 
SW11= 
SW10= 
SW09= 
SW08= 
SW07= 
SW06- 
SW05- 



100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 
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BASIC DEFINITIONS 
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SEQ 0009 



(1) 
(1) 
(1) 
<1) 
<1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 

a) 
<1) 
(1) 
(1) 
<1) 
<1) 
(1) 
(1) 
(1) 



) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
> 
) 
) 

(1) 



{ 

( 
( 
( 
( 

(1 

( 

( 

( 

( 

< 

( 

( 

( 

( 

< 

( 

( 

( 

( 

( 

(1 

( 

( 

( 

( 

( 

( 

< 

( 

( 

c 

< 

( 



000020 
000010 
000004 
000002 
000001 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000004 

"m 

)14 
)14 
)14 
000020 
000024 
000030 
QQ0034 
000060 
000064 



S«04= 20 

SU03= 10 

SW02= 4 

SW01= 2 

SW00= 1 

.EOUIV SW09,SW9 

.ECUIV SW08,SW8 

.EOUIV SW07.SW7 

.EOUIV SW06,SU6 

.EOUIV SW05.SU5 

.EOUIV SW04,SUI4 

.EOUIV SW03,SU3 

.EOUIV SW02,SW2 

.EOUIV SW01.SW1 

.EOUIV SWOO.SWO 

;*DATA BIT DEFINITIONS (BITOO TO BIT15) 

BIT15= 100000 

8IT14= 40000 

BIT 13= 20000 

BIT12= 10000 

BIT11= 4000 

BIT10= 2000 

BIT09= 1000 

BIT08= 400 

BIT07= 200 

BIT06= 100 

BIT05= 40 

BIT04= 20 

BIT03= 10 

8IT02= 4 

BIT01= 2 

BIT00= 1 

.EOUIV BIT09,8IT9 

.EOUIV BIT08,8IT8 

.EOUIV 8IT07.8IT7 

.EOUIV BIT06,8IT6 

.EOUIV 8IT05,8IT5 

.EOUIV 8IT04,8IT4 

.EOUIV 8IT03,8IT3 

.EOUIV BIT02,8IT2 

.EOUIV 8IT01,8IT1 

.EOUIV BIT00,8IT0 



.•*aASIC "CPU" TRAP VECTOR 
ERRVEC= 4 
RESVEC- 10 
T8ITVEC=14 
TRTVEC= 14 
BPTVEC= 14 
IOTVEC= 20 
PWRV£C= 24 
Ef1TVEC= 30 
TRAPVEC=34 
TKVEC= 60 
TPVEC 64 



ADDRESSES 

TIME OUT AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 
•T' BIT 
TRACE TRAP 

BREAKPOINT TRAP (8PT) 
INPUT/OUTPUT TRAP (lOT) **SCOPE** 
POWER FAIL 

EMULATOR TRAP (EMT) ••ERROR** 

"TRAP" TRAP 

TTy KEYBOARD VECTOR 

TTY PRINTER VECTOR 
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SEO 0010 


(1) 
15 
16 
17 
18 
19 
20 
21 
22 
?3 
^4 
25 
26 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 

<?? 


000240 
160006 
160300 
177546 


PIRQVEC=240 ;. -PROGRAM INTERRUPT REQUEST VECTOR 
ABASE=160006 :BASE CD BUS ADDRESS EQUATE 
AV£CT1=160300 .-BASE CD PRIORITY ( VECTOR ADDRESS EQUATE 
L»(:S=1 77546 .-.-CONTROL AND STATUS REG OF L. CLOCK 




172540 
172542 
172544 
001124 
001126 
000001 
001122 


PKCSR=1 72540 ;;C0NTRa AND STATUS REG OF P. CLOCK 

?K8UF=1 72542 ; .SUFFER OF P. CLOCK 

PKCNT=1 72544 ;; COUNTER 

GOOD=SGDDAT 

BAD=S8DDAT 

REQ=eiTO 

BADA=SaDADR 

.S8TTL ME«ORV rWi*REHENT DEFINITIONS 






;*KT11 VECTOR ADDRESS 




000250 


MHVEC= 250 






;*KT11 STATUS REGISTER ADDRESSES 




177572 
177574 
177576 
172516 


SR0= 177572 
SR1= 177574 
SR2= 177576 
SR3= 172516 






.-•KERNEL "I" PAGE DESCRIPTOR REGISTERS 




172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 


KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDR5= 172312 
KIPDR6= 172314 
K1PDR7- 172316 






.-•KERNEL "I" PAGE ADDRESS REGISTERS 




172340 
172342 
172344 
172346 
172350 
1 72352 
172354 
1 72356 


KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPAR5= 172352 
KIPAR6= 172354 
KIPAR7= 172356 






.S8TTL TRAP CATCHER 




(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 


000000 


.=0 

;*ALL UNUSED LOCATIONS OF THE VECTOR AREA CONTAIN 

;*A ".+2. lOT" SEQUENCE TO CATCH AND PROCESS ILLEGAL 

.-•TRAPS AND INTERRUPTS THAT MIGHT OCCUR. 

.-•THE lOT TRAP yHICH IS TAKEN ON THE ILLEGAL TRAP/INT 

.-•TRAPS TO THE SSCOPE ROUTINE WHICH (IF THE RETURN PC IS 

.-•LESS THAN 1002) JUMPS TO THE SERROR ROUTINE. 
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SEQ 001 



) 
) 
28 
29 
30 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
31 
32 
(1) 
(2) 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1> 
(1) 
(1) 
(1) 
(1) 
(1) 



000200 000137 003776 



000204 
000046 

000046 020146 
000052 

000052 000000 
000204 
001000 



001000 

000024 
000024 000200 

000044 
000044 001000 

001000 



001000 
001000 
001002 
001004 
001006 
001010 
001012 



000000 
001206 
000017 
000074 
000000 
000052 



•THE SERROR ROUTINE WILL REPORT THE ERROR AS FOLLOWS: 

• PC=YYYYYy UNEXPECTED TRAP TO XXX 
*WD RETURN TO THE PROGRAM AT PC=YyYyvYt2 
•WHERE XXX=LOCATION OF ILLEGAL TRAP 

• YYYYYY=PC AT TIME OF TRAP 

•NOTE: IF THE PROCESSOR IS NOT AN 11/05 THE PROGRAM 

• CAN BE STARTED A^ ADDRESS 0 AS WELL AS ADDRESS 200. 



) 


000000 


000000 


$40CAT: 


HALT 




;;HALT 


) 


000002 


000737 




BR 


.-100 


;; BRANCH TO 177700 & TIME OUT 


) 












;;11/05) 


) 


000004 


003776 




.WORD 


R0UT1 


; .-VECTOR TO STARTING ADDRESS 
;;WITH PRIORITY LEVEL 7 


) 


000006 


000340 




.WORD 


340 


) 




000174 




.=174 






) 


000174 


000000 


DISPREG 


:.WORD 


0 


;. "SOFTWARE DISPLAY REGISTER 


) 


000176 


000000 


SWREG: 


.WORD 


0 


.-.-SOFTWARE SWIfCH REGISTER 



(NOT ON 



.S8TTL STARTING ADDRES(ES) 

JMP aCROUTI ;;G0 TO START OF PROGRAM 



.S8TTL ACT11 HOOKS 



;HOOKS REQUIRED BY ACT11 
$SVPC=. 
.=46 
SENDAD 
.=52 

.WORD 0 

.=SSVPC 

.=1000 

.S8TTL APT PARAMETER BLOCK 



.-SAVE PC 

;;1)SET L0C.46 TO ADDRESS OF SENDAD IN .$EOP 

;;2)SET LOC.52 TO ZERO 
;; RESTORE PC 



; *************************************************************** 

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

; *************************************************************** 

.$X=. .-.-SAVE CURRENT LOCATION 

.=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 
200 ;;FOR APT START UP 

.=44 ; .-POINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR ; .POINT TO APT HEADER BLOCK 
.=.$X ;, -RESET LOCATION COUNTER 
• *************************************************************** 

SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 



SAPTHO: 

$HIBTS: 

SMBADR: 

STSTM: 

SPASTH: 

SUNITH: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



0 

SMAIL 

15. 

60. 

0 



TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
ADDRESS OF APT MAILBOX (BITS 0-15) 
RUN TIM OF LONGEST TEST 

RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
ADDITIONAL RtM TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 



$ETEND-SnAlL/2 ..LENGTH MAILBOX-ETABLE (WORDS) 
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35 

(1 



(2 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
<1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(5 
(3 
(3 
(3 
(3 
(1 
(1 
(1 
(1 
(1 
(1 
(2 
(2 
(2 
(5 
(2 
(2 
(2 
(2 



1 1 
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CCmON TAGS 

.S8TTL COmON TAGS 

■ - ************************************************ **•*»*•••••*••« 
•iTHJS TABLE CONTAINS VARIOUS COMMON STQRAoE LOCATJONS 
.-•USED IN THE PROGRAM. 



SEO 0012 





001100 






.=1100 






001100 




SCWTAG 






; START OF COfflON TAGS 


001100 


000000 






.WORD 


0 




001102 


000 


$TSTft1: .BYTE 


0 


.-CONTAINS THE TEST NUMBER 


001103 


000 


$ERFL6 


.8YTE 


0 


.•CONTAINS ERROR FLAG 


001104 


000000 


SJCNT. 




.WORD 


0 


.•CONTAINS SUBTEST ITERATION COUNT 


001106 


000000 


SLPADR 


.WORD 


0 


.•CONTAINS SCOPE LOOP ADDRESS 


001110 


000000 


SLPERR 


.WORD 


0 


.■CONTAINS SCOPE RETURN FOR ERRORS 


001112 


000000 


SERTTL 


.WORD 


0 


.■CONTAINS TOTAL ERRORS DETECTED 


001114 


000 


$ITEI« 


.BYTE 


0 


.•CONTAINS ITEM CONTROL BYTE 


001115 


001 


$ER«AX 


.BYTE 


1 


.CONTAINS MAX. ERRORS PER TEST 


001116 


000000 


SERRPC 


.WORD 


0 


.•CONTAINS PC OF LAST ERROR INSTRUCTION 
.•CONTAINS ADDRESS OF 'GOOD* DATA 
.CONTAINS ADDRESS OF 'BAD' DATA 
.•CONTAINS 'GOOD' DATA 


001120 


000000 


SGDAOR 


- .WORD 


0 


001122 


000000 


SBDADR 


■ .WORD 


0 


001124 


000000 


SGDDAT 


.WORD 


0 


001126 


000000 


S8DDAT 


.WORD 


0 


.•CONTAINS 'BAD' DATA 


001130 


000000 






.WORD 


0 


.RESERVED—NOT TO BE USED 


001132 


000000 






.WORD 


0 




001154 


000 


$AUTOB. 


• .BYTE 


0 


; AUTOMATIC MODE INDICATOR 


001135 


000 


SINTAG; .eyiE 


0 


.INTERRUPT MODE INDICATOR 


001136 


000000 






.WORD 


0 


001140 


177570 


SUR: 




.WORD 


DSWR 


.•ADDRESS OF SWITCH REGISTER 


001142 


177570 


DISPLAY: .WORD 


DDISP 


.ADDRESS OF DISPLAY REGISTER 


001144 


177560 


$TKS: 




177560 




;TTY KBD STATUS 


001146 


1 77562 


$TK8: 




177562 




;TTY KSO BUFFER 


001150 


1 77564 


$TPS: 




177564 




;TTY PRINTER STATUS REG. ADDRESS 


001152 


177566 


$TPB; 




177566 




;TTY PRINTER BUFFER REG. ADDRESS 


001154 


000 


SNULL 




•BYTE 


0 ; 


.•CONTAINS NULL CHARACTER FOR FILLS 


001155 


002 


$F1LLS 


• .BYTE 


2 


.•CONTAINS # OF FILLER CHARACTERS REQUIRED 
.•INSERT FILL CHARS. AFTER A 'tlNE FEED" 
.-'TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES) 


001156 


012 


SFILLC 


■ .BYTE 


12 


001157 


000 


STPFLG 


■ .BYTE 


0 


001160 


000000 


$TMPO 




.WORD 


0 


.-USER DEFINED 


001162 


000000 


$TMP1 




.WORD 


0 


;USER DEFINED 


001164 


000000 


$TMP2 




.WORD 


0 


:USER DEFINED 


001166 


000000 


$TMP3 




.WORD 


0 


.•USER DEFINED 


001170 


000000 


$TMP4 




.WORD 


0 


.•USER DEFINED 


001172 


000000 


$TI«ES 


: 0 




:MAX. MiMBER OF ITERATIONS 


001174 


000000 


$ESCAPE:0 




.-ESCAPE ON ERROR ADDRESS 


001176 


177607 000377 


SBELL 




.ASCIZ 


<207><377><377> ; 


.CODE FOR BELL 


001202 


077 


$QUES. 




.ASCII 


/?/ 


.-QUESTION MARK 


001203 


015 


$CRLF 




-ASCII 


<15> 


.•CARRIAGE RETURN 


001204 


000012 


SLF; 




.ASCIZ 


<12> 


.LINE FEED 



.SBTTL APT MAILBOX-E TABLE 



001206 
001206 
001210 



000000 
000000 



.EVEN 
SMAIL: 
SMSGTY: 
SFATAL : 



;;APT MAILBOX 
.WORD AMSGTV ; .-MESSAGE TYPE CODE 
.WORD AFATAL :: FATAL ERROR M/OER 
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APT «AI1jB0X-ET>«LE 



N 1 



S£Q 0013 



(2) 


001212 


000000 


(2) 


001214 


000000 


(2) 


001216 


000000 


(2) 


001220 


000000 


\c.) 




www 


(2) 


001224 


000000 


(2) 


001226 




(2) 


001226 


000 


(2) 


001227 


000 


(2) 


001230 


000000 


(2) 


001232 


000000 


(2) 
(2) 


001234 


000000 


(2) 






(2) 






(2) 






(2) 






(2) 






(2) 


001236 


000 


(2) 


001237 


000 


(2) 






(2) 






(2) 






(2) 






(2) 


001240 


000000 


(2) 






(2) 


001242 


000 


(2) 


001243 


000 


(2) 


001244 


000000 


(2) 


001 2A6 


000 


(2) 


001247 


000 


(2) 


001250 


000000 


(2) 


001252 


000 


(2) 


001253 


000 


(2) 


001254 


000000 


(2) 


001256 


160300 


(2) 


001260 


000000 


(2) 


001262 


160006 


(2) 


001264 


000000 


(2) 


001266 


000000 


(2) 


001270 


000000 


(2) 


001272 


000000 


(2) 


001274 


000000 


(2) 


001276 


000000 


(2) 


001300 


000000 


(2) 


001302 


000000 


(2) 


001304 


000000 


(2) 


001306 


000000 


(2) 


001310 


000000 


(2) 


001312 


000000 


(2) 


001314 


000000 


(2) 


001316 


000000 


(2) 


001320 


000000 


(2) 


001322 


000000 


(2) 


001324 


000000 


(2) 


001326 


000000 



$TESTN: 

SPASS: 

SDEVCT: 

SUNIT: 

SMSGAD: 

SnSGLG: 

SENV: 

$ENVW: 

$SUREG: 

SUSWR: 

SCPUOP: 

;• 
;• 

;• 

• * 

;• 

• * 

iWAMSI: 
SMTyPI : 

;• 

• * 

• * 



.WORD 
.UORD 
.WORD 
.yORO 
.WORD 
.WORD 

•BYTE 
.BYTE 
.WORD 
.WORD 
.yORD 



.BYTE 
.BYTE 



inms2 

$«TYP2 
SMADR2 
$MA«S3 
$«TYP3 
$nADR3 

$nAns4 

$«TYP4 
SnADR4 

SVECTI 
$VECT2 
SBASE 

$DEvn 

$CDW1 

$CDU2 

$DDWO 

$DDW1 

$DDU2 

$DDU3 

SDDU4 

$DDW5 

$DDW6 

$DDW7 

$DDU8 

$DDW9 

$DDW10 

SDDWII 

$DDW12 

$DDW13 

$DDW14 



.BYTE 
.BYTE 
.WORD 
•BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 
.yORD 
.yORO 
.UORO 
.WORD 
.WORD 
.WORD 
.WORD 
.yORO 
.yORD 
.WORD 
.yORD 
.yORD 
.yORD 
.yORD 
.yORD 
.yORD 
.WORD 
.yORD 
.yORD 
.yORD 
.yORD 



ATESTN 

APASS 

ADEVCT 

AUNJT 

AnSGAO 

AMSGLG 

AENV 

AENVn 

ASUREG 

AUSyR 

ACPUOP 



AMAMSI 
AMTYP1 



SIADRI: .yORD AMADRI 



VW1S2 

AnADR2 

Arwis3 

AMTYP3 
AnADR3 
AnV1S4 
/V1TYP4 

AVECT1 

AVECT2 

ABASE 

ADEVn 

ACDW1 

ACDW2 

ADOWO 

ADDW1 

ADDW2 

ADDW3 

ADDW4 

ADDU5 

ADI>y6 

ADDW7 

ADOyS 

ADDy9 

ADDW10 

ADDUII 

ADDU12 

ADDW13 

ADDW14 



TEST NUMKR 
PASS COUNT 
DEVICE COUNT 
I/O UNIT NUMBER 
MESSAGE ADDRESS 
MESSAGE LENGTH 
APT ENVJR0f#1ENT TABLE 
ENVJR0f«ENT BYTE 
ENVJROr«NT MODE BITS 
APT SWITCH REGISTER 
USER SWITCHES 
..CPU TYPE. OPTIONS 
BITS 15-11=CPU TYPE 

1 1 704=01 . 1 1 /05=02 . 1 1 /20=03 , 1 1 /40=04 .11/45=05 
11/70=06.PDO=07.0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
;;HIGH ADDRESS.M.S. BYTE 
;;MEM. TYPE,8LK#1 
MEM. TYPE BYTE — (HIGH BYTE) 
900 NSEC C0RE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
*HIGH ADDRESS BLK#1 

'mEM.LAST A0DR.=3 bytes, this WORD AND LOW OF "TYPE" ABOVE 
HIGH ADDRESS, M.S. BYTE 
MEM. TYPE .8L»or2 
MEM.LAST ADDRESS, 8L»or2 
high ADDRESS.M.S.BYTE 
MEM. TYPE, 8LK#3 
MEM.LAST ADDRESS,8LK#3 
high ADDRESS, M.S. byte 
MEM. TYPE ,BLI0r4 
MEM.LAST ADDRESS ,8LK#4 
INTERRUPT VECTOR^UBUS PRIORI TY#1 
INTERRUPT VECT0R#2BUS PRIORI TY#2 
BASE ADDRESS OF EQUIPMENT UNDER TEST 

CONTRaLER DESCRIPTION M}RD#1 
CONTROLLER DESCRIPTION W0RD#2 
DEVICE DESCRIPTOR yOmO 
DEVICE DESCRIPTOR U0RD#1 
DEVICE DESCRIPTOR MORMZ 
DEVICE DESCRIPTOR yORD#3 
DEVICE DESCRIPTOR W0RD#4 
DEVICE DESCRIPTOR U0RD#5 
DEVICE DESCRIPTOR U0RD#6 
DEVICE DESCRIPTOR W0RD#7 
DEVICE DESCRIPTOR U0RD#8 
DEVICE DESCRIPTOR W0RD#9 
DEVICE DESCRIPTOR W0RD#10 
DEVICE DESCRIPTOR W0RD#11 
DEVICE DESCRIPTOR W0RD#12 
DEVICE DESCRIPTOR W0RD#13 
DEVICE DESCRIPTOR W0RD*14 



.«AIN. MACYll 50A(1052) 13-*V«-80 07:40 PAGE 1-6 

C7KM.A.P11 13-MAR-80 07:39 APT HAIU30X-ETA8LE SEO 00' <• 

(2) 001330 000000 $DDW15: .WORD ADDU15 .-.-DEVICE DESCRIPTOR W0RD#15 

(2) 
(?) 

(2) 001332 SETEND: 
(2) 
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ERROR POINTER TABLE 

.S8TTL ERROR POINTER TABLE 

*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
*THE INFORMATION IS OBTAINED BY USING THE INDEX NUTBER FOUT© IN 
•LOCATION $ITE«B. THIS NUHKR INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
•NOTE!: IF flTEHB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

♦N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 



SEO oor 



EM 
DH 
DT 
DF 



(1 ) 


001332 




SERRTB: 


34 






; ERR0R#1 


35 


001332 


^ y y f\j 

024406 


EMI 


36 


001334 


027««31 


DH1 


37 


001336 


027654 


DTI 


38 


001340 


000000 


AAA 

000 


39 






:ERR0Rff2 


40 


001542 


AT/ y C / 

024454 


EM2 


41 


001344 


027517 


DH2 


42 


001346 


027670 


DT2 


43 


001550 


ooooco 


AAA 

000 


44 






m A AA m7 

;ERR0R*3 


45 


001352 


024502 


EM3 


46 


001354 


027431 


DHl 


47 


001 356 


027654 


DTI 


48 


001360 


AAA AAA 

000000 


000 


49 






; ERR0R#4 


50 


001362 


024 '-63 


EM4 


51 
52 


001364 


027517 


DH2 


53 


001366 


027670 


DT2 




UU 1 u 




/V\A 
WW 


55 






;ERR0R#5 


56 


001372 


024615 


EMS 


57 


001374 


027517 


DH2 


58 


001376 


027670 


DT2 


59 


001400 


000000 


000 


60 






;ERR0R*6 


61 


001402 


024651 


EM6 


62 


001404 


027431 


DHl 


63 


001406 


027654 


DTI 


64 


001410 


000000 


000 


65 






;ERR0R/ir7 


66 


001412 


024730 


EM7 


67 


001414 


027431 


DH1 


68 


001416 


027654 


DTI 


69 


001420 


000000 


000 


70 






;ERROR#10 


71 


001422 


025040 


EM10 


72 


001424 


027431 


DHl 


73 


001426 


027654 


DTI 


■^4 


001430 


000000 


000 



POINTS TO THE ERROR MESSAGE 
POINTS TO THE DATA HEADER 
POINTS TO THE DATA 
POINTS TO THE DATA FORMAT 



.-.-ACTUAL VALUE DIDN'T MATCH WITH EXPECTED 



.-.-ERROR: READY BIT DIDN'T SET 



.-.-TIME INTERVAL COUNTER DIDN'T DECREMENT IN ORDER 



: .-PROBABLE CAUSE OF AN ERROR rBIT/TK WAS 
;;NOT SET IN DEVICE REG4 



;;ERR0R:8IT #14 IN CSR FAIL TO RESET 



;;READy BIT DIDN'T SET.-yEAR VALUE MAY BE INVALID 



.-.-READY BIT DIDN'T SET;ONE OR BOTH VALUES OF MONTH AND D 



.-.-READY BIT DIDN'T SET;ONE OR BOTH VALUES OF HOUR AND MI 



.MAIN. 


MAC yii 


30A(1052 


C2KWLA.P11 


15-WAR-80 


7C 
f 5 






7i» 
'O 




025^52 


77 




027517 




/VMZ. 7/. 


027670 


7C 
f 7 




000000 


on 
WJ 






C 1 


<Vl1 AZ. 5 


025212 


ft5 
Oc 


\J\J 1 •«*♦*♦ 


027517 


Oj 




027670 


ft/. 




000000 


Oj 










025250 


97 

Of 






OO 




027517 


SO 


nniz.^A 


027670 


7VJ 




000000 


01 

7 1 






OP 
7<: 


WW 1 HOC 


025304 


OX 

7J 


\AJ 1 ••OS 


027517 


0^ 

7H 


nni^A/. 

WW 1 •»OC 


027670 


7 J 


nni^7n 

wU 1 H f w 


000000 


TO 






07 

7» 




025437 


OR 

70 




027517 


00 

77 


Uw 1 •» f o 


027670 




nni snn 


000000 


ini 








nni 'in? 


025572 




nni sn^ 


027431 


in^ 


nni sn^ 

WW 1 ?\fO 


027654 


ins 


nni ^in 

WW 1 3 1 U 


000000 


in^ 






in? 

\\jf 


nni SI p 

WW \J\C 


025605 


inn 






100 


nni S1A 

WW 1 ^ 1 *♦ 


027431 


1 in 


nni SI A 

UU 13 10 


027654 


1 1 1 

1 1 1 


nni spn 

WW 1 jC\I 


000000 


115 

1 1 c 






1 1 X 


nni spp 

WW 1 jCc 


025655 


1 1 A 


nni SPA 

WW 1 jC*i 


027431 


1 1 •> 


nni SPA 


027654 


1 1 A 


nm sxn 

WW 1 JJ\l 


000000 


117 






1 1 R 


nni S7P 

Uw 1 JJC 


025733 


110 

1 1 7 






i?n 


nni SXA 

WW 1 JJH 


027517 


i?i 


nni S7A 


027670 


1?? 


nni s^n 


000000 


' c ^ 








001 5A2 


026004 


125 


001 54A 


027517 


126 


001 SA6 


027670 


127 


001550 


000000 


128 






129 


001552 


026053 


150 







13-«AR-80 07:40 PAGE 1-8 
':59 ERROR POINTER TABLE 

;ERR0R#11 

EMU 
DH2 
DT2 
000 

;ERR0R*12 

EMI 2 
DH2 
DT2 
000 

;ERR0R#13 

EMI 3 

DH2 
DT2 
000 

;ERR0RXri4 

EMU 
DH2 
DT2 
000 

;ERR0R#15 

EMI 5 
DH2 
DT2 
000 

;ERR0R#16 

EMI 6 
0H1 
DTI 
000 

;ERR0R#17 

EMI 7 

DH1 
0T1 
000 

;ERR0R#20 

EM20 
DH1 
DTI 
000 

;ERR0R*21 

EM21 

DH2 

d:2 

000 

;ERR0R*22 

EM22 
DH2 
DT2 
000 

;ERR0R*23 

EM?3 



D 2 

SEQ 0016 

.-.ERROR: BIT #15 (DE) FAIL TO SET IN CSR 

; .-ERROR: CLOCK DIDN'T STOP 

;; CLOCK UAS SUPPOSE TO STOP WHILE 

.-.-SETTING MONTH+DAY VALUE 

.-.-ERROR: CLOCK IS NOT RIMMING 

;; CLOCK WAS SUPPOSE TO RUN AFTER 
.-.•SETTING MONTH+DAY AND HOUR+MIN 

.-.-INTERRUPT DIDN'T OCCUR WHILE UPDATING THE CLOCK 



.-.-INTERRUPT DIDN'T OCCUR ON PRESET VALUE 



.-.-SOFT ERROR 



.-.-LWEXPECTED INTERRUPT AS SOFTWARE SWITCH 
;;WAS NOT SET 



.-.-UNEXPECTED INTERRUPT AS INTRPT WAS NOT ENABLED 



; .-UNEXPECTED INTERRUPT AS (DE) BIT 
;; DIDN'T SET IN CSR 



; .-UNEXPECTED UNEXPLAINABLE INTERRUPT 



; .-UNEXPECTED INTERRUPT AS (ID BIT 
;;WAS NOT SET IN CSR 



.MAIN. 


NACrll 


30A(1052) 13-«AR-80 
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ERROR POINTER TABLE 




001 554 


0275 1 7 


DH2 




001556 




DT2 


1 5§ 


001 560 


000000 


000 


•17/ 






;ERftOR*2A 


155 


001 562 


0261 21 


EM24 


156 








^ i7 
I 5/ 


UUI56»» 


A07A 71 


DHl 


1 50 


001566 


A07AC/ 


0T1 




AAI C7A 

0015/^0 


AAAAAA 


000 








;ERR0R*25 




/V^l C70 

0015^2 


AOA OA7 

02620/ 


EH25 


I/O 


/VM C7/ 


A07/ 71 


DHl 


1/7 


AA1 C7X. 


A07AC/ 


0T1 


1 / / 


AA1 AAA 


AAAAAA 


000 


1 / c 






;ERR0R+26 


1 / iL 
1 '•O 


AA1 AAO 


AOAOCA 

0<:oc50 


EM26 


1/7 
l*»/ 


AAI A/V 
0UlO'J*» 


A575'i 7 


0H2 


1/0 


AA1 AAA 

UUIoUO 


A07A 7n 


DT2 


I/O 


AA1 A1 A 
0UI61U 


/^AAAAA 

wUUw 


000 


1 cn 






;ERR0R*27 


1 C1 


AA1 A1 0 

UUlOlr 


A0A751 


EM27 


1 


AA1 A1 A 
UU 10 l*t 


n5751 7 


DH2 


1 


AAI A1 A 

W lo lo 


A07A7A 


DT2 


1 

1 5*» 


AA1 AOrt 


AAAAAA 


000 


1 






; ERROR+30 


1 50 


AAI A55 


A5A77A 


EM30 


157 

\jf 


AAI AO/ 


A07Q1 7 
Uc/5 1 


DH2 


1 <;s 

! 50 


UU 1 0£0 




DT2 


1 CO 
1 57 


nni Ain 


AAAAAA 


000 


1 

loU 








1 






;ERR0R*31 


1 <to 

IOC 


AA1 A70 




EN31 


163 


001 63A 


027562 


DH4 


16A 


001636 


02770A 


DT4 


I05 


AA1 AAA 


AAAAAA 


000 


1 

loo 






;ERR0R*32 


1 A7 

lo^ 


AA1 A/ 0 


Uco5U5 


En32 


lOo 


AA1 / 

uuio*»*» 


n57C1 7 


DH2 


10^ 


nrti AAA 
UU 1 OmO 




DT2 


1 7r\ 

1 71 


AA1 Acn 


AAAAAA 


000 


1 f 1 
1 75 






;ERR0fi+33 


1 71 

1 f 5 


AA1 A5 0 




EM33 


1 7A 


AA1 A<;/ 


n57C/ 7 
Ucr 5Hr 


DH3 


1 7«; 


(\f\^ A^ A 
UU 1050 


n577nn 
\)cf fyJyJ 


DT3 


1 7A 

1 r6 


AA1 AAA 


UUUUUU 


000 


1 77 






;ERR0R+34 


1 7B 


AA1 AA** 


A0AA5A 


E«3A 


179 


\J\J 1 Ov?** 




DH5 


180 


001666 


027720 


DT5 


181 


001670 


000000 


000 


182 






;ERfi0R*35 


183 


001672 


026674 


EM35 


18A 


001 67A 


027A31 


DHl 


185 


001676 


02765A 


DTI 


186 


001700 


000000 


000 



;TinE FAIL TO HOLD WHILE 
:UHiLE HOLD BIT WAS SET IN CSR 

.•ERROR :READY BIT WASN'T SUPPOSE TO BE SET 

.••M'BIT DID NOT SET IN CSR 

.-TIME INTERVAL INTERRUPT DIDN'T OCCUR 

AND/OR 'DE' BIT NOT SET IN CSR 

;HOLD BIT FAIL TO RESET IN TIME 
.'HOLD BIT FAIL TO RESET 

.•CRYSTAL OSCILLATOR SEEMS TO BE INACCURATE 
;GOT NO INTERRUPT 

;GOT NO INTERRUPT WITH BPU AT I EVEL 0 
.•INTERRUPT OCCUR AT WRONG LEVEL 
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187 
188 

189 

190 

191 

192 

193 

19A 

195 

1% 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

212 

213 

2U 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

251 

232 

235 

254 

235 

236 

237 

258 

239 

240 

241 

242 

'43 



001702 026734 

001704 027517 

001706 027670 

001710 000000 
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ERROR POINTER TABLE 

;ERR0R*36 

EM36 
DH2 
DT2 
000 



F 2 



SEO 0018 



;;*Dt' BIT FAIL TO CLEAR IN CSR 



CSR: 



VECO: 
VEC2: 



KW11C BUS REGISTER ADDRESS POINTERS 

160006 ; COMMAND/STATUS REGISTER 

KW11C VECTOR ADDRESS POINTERS 

300 .-NORMAL INTERRUPT VECTOR 

304 



KWlir DEVICE LEVEL 
BftLV: 6 

COMMAND STATUS REGISTER BIT ASSIGTWENTS 
COMMON PROGRAM LOCATION(S) 



.MACR 
JSR 
TST 
.ENDM 

.MACR 
MOV 
M0V8 
TYPE 
• ENDM 

•MACR 

MOV 

M0V8 

TYPE 

.ENDM 

.MACR 

MOV 

JSR 

BIT 

BEO 

.ENDM 

•MACR 

MOV 

MOV 

JSR 

BIT 

BNE 

.ENDM 



RDYCX 
PC, 

FLAG.1 



ECHO 

(SP)*, 

R4, 



ECH01 

(SP)*. 

R4. 



RDYBIT 



R4 

ECMOB 
ECHOB 



R4 

ECH0B1 
ECH0B1 



DECHK 

M77777, COMJR 
PC, DMT 
«BIT15,aCSR 
.-12 



DECLR 

M77777 .COJNJR 
MO. aCSR 
PC. DMT 
*8IT15. aCSR 
.-20 



.•CHECK FOR READY BIT SET 
;IS FLAG SET? 



STORE CHARACTER 

TO ECHO THE CHARACTER 

TYPE THE CHARACTER 



;; STORE CHARACTTER 
;;ECHO THE CHARACTER 



DELAY LOOP SETUP 
DEAD NAN TIMER ROUTINE 
IS DE BIT SET 
TRY AGAIN 



DELAY LOOP SETUP 
CLEAR CSR 

DEAD MAN TIMES ROUriNE 

IS 8IT15 CLR? 

N0:8R 



.MACR COMPAR ?B 
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244 
245 
246 
247 
246 
250 
251 
253 
254 
( 



07:40 PAGE 1-11 

EfWm POINTER TABLE 



6 2 



SEO 001 o 



B: 



CMP 
BLT 
SUB 
CMP 
.ENDM 



GOOD, 
B 

#74. 

GOOD, 



#74 

GOOD 
BAD 



;. EXPECTED VALUE MORE THAN OR EQUALS 60. 
;;N0:8R 

; .-EXPECTED SECOND CAN'T BE MORE THAN 59 
;;cXPECTED=ACTUAL? 



( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(1 
(2 
(2 
(2 
(2 
(2 
255 
(1 
(1 
(1 



001712 



001712 
001716 
001720 
001724 
001726 

001732 
001740 
001746 
001754 
001762 
001770 
001776 
002004 
002012 
002020 
002024 
002030 
002036 
002044 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
013737 
005037 
005037 
112737 
012737 
012737 



001100 

001140 

001100 

023342 
000340 
022656 
000340 
024324 
000340 
023634 
000340 
020114 
001172 
001174 
000001 
002036 
002044 



START: 
.S8TTL 
.-.CLEAR 



.S8TTL PROGRAM START 



INITIALIZE 
THE COMMON 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 
020106 



001115 
001106 
001110 



MOV 
CLR 
CMP 
BNE 
MOV 

;; INITIALIZE A 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
MOVB 
MOV 
MOV 
.-.-SIZE FOR A 
.-.-EQUAL TO A 



THE COMMON TAGS 
TAGS (SCMTAG) AREA 



#SCMTAG,R6 
(R6)* ; 
#SUR,R6 ;;OONE? 
.-6 ; 
/rSTACK.SP ; 
FEW VECTORS 

#$scoPE.ariOTVEC 

#340,ariOTVEC*2 ; 
#$ERROR,arEMTVEC 
#340,a#EMTVEC*2 ; 
#$TRAP,arTRAPVEC 



#340, arTRAPVEC+2; LEVEL 7 



002052 


013746 


000004 






MOV 


002056 


012757 


002112 


000004 




MOV 


002064 


012737 


177570 


001140 




MOV 


002072 


012737 


177570 


OOlUt^ 




MOV 


002100 


022777 


m777 


177032 




CMP 


002106 


001012 








BNE 


002110 


000403 








BR 


002112 


012716 


002120 




64$: 


MOV 


002116 


000002 








RTI 


002120 


012737 


000176 


001140 


65$: 


MOV 


002126 


012737 


000174 


001142 




MOV 


002134 


012637 


000004 




66$: 


MOV 


002140 


005037 


001214 






CLR 


002144 


132737 


000200 


001227 




BITB 


002152 


001403 








BEO 


002154 


012737 


001230 


001140 




MOV 


002162 








67$: 












.SSTTL 


TYPE 










.-.-TYPE 


THE W 


002162 


005227 


1 77177 






INC 


002166 


001045 








BNE 



#$PWRDN.a#PURVEC 
#340.airPWRVEC+2 
$ENDCT,$£OPCT 
$TIMES 
$ESCAPE 
#1 ,$ERMAX 
#. .$LPAOR 
#.,$LPERR 



a#ERRVEC,-(SP) 

#64$.a#ERRVEC 

#DSUR,SUR 

#I>DISP.DISPLAY 

#-1,8SWR 

66$ 



FIRST LOCATION TO BE CLEARED 
CLEAR MEMORY LOCATION 



LOOP BACK 
SETUP THE 



IF NO 

STACK POINTER 



;IOT VECTOR FOR SCOPE ROUTINE 
LEVEL 7 

;EMT VECTOR FOR ERROR ROUTINE 
LEVEL 7 

.-TRAP VECTOR FOR TRAP CALLS 



.-POWER FAILURE VECTOR 
LEVEL 7 

SETUP END-0F-PR06RAM COUNTER 
INITIALIZE NlfBER OF ITERATIONS 
CLEAR THE ESCAPE ON ERROR ADDRESS 
ALLOW ONE ERROR PER TEST 
INITIALIZE THE LOOP ADDRESS FOR SCOPE 
SETUP THE ERROR LOOP ADDRESS 
HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
1", SETUP FOR A SOFTWARE SWITCH REGISTER. 

.-.-SAVE ERROR VECTOR 
;;SET UP ERROR VECTOR 
: .-SETUP FOR A HARDWARE SWICH REGISTER 
.-.-AND A HARDWARE DISPLAY REGISTER 
;;TRY TO REFERENCE HARDWARE SWR 
;;8RANCH IF NO TIMEOUT TRAP OCCURRED 
;;AND THE HARDWARE SWR IS NOT = -1 
.-.•BRANCH IF NO TIMEOUT 
;;SET UP FOR TRAP RETURN 

;:POiNr TO SOFTWARE SWR 



65$ 

#65$. (SP) 



#SUREG.SWR 
#DJSPREG.DISPLAy 
(SP)>,a#ERRVEC ; .-RESTORE ERROR VECTOR 



{PASS 

#APTSIZE,$£NVM 
67$ 

#$SWREG.SWR 

PROGRAM NAME 

ME OF THE PR0GR>V1 

#-1 

68$ 



.-.-CLEAR PASS COUNT 
;;TEST USER SIZE UNDER APT 
;; YES. USE NON-APT SWITCH 
;;NO.USE APT SWITCH REGISTER 



IF FIRST PASS 
.-.-FIRST TIME? 
.-.-BRANCH IF NO 
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07:40 PAGE 1-12 
TYPE PROGfMn NAME 



H 2 



SEO 00?C 



(1) 002170 

(1) 002176 

(1) 002200 

(2) 

(2) 002204 
(2) 002210 
(2) 002212 

002220 

(2' 002222 

(2) 002230 

(2) 002232 

(2) 002234 

(2) 002236 

(2) 002244 

(1) 002244 
(1) 

(1) 002302 

256 002302 

257 002306 

258 002310 

259 002314 

260 002322 
?61 002^26 

262 002332 

263 002336 
264 

265 002342 

266 002346 
267 

268 002350 

269 002352 
?70 002354 

271 002356 

272 002362 

273 002364 

274 002370 

275 002372 
276 

277 002374 

278 002376 

279 002400 

280 002402 

281 002404 

282 002410 

283 002412 

284 002416 

285 002422 

286 002426 

287 002432 
283 002436 

289 002442 

290 002446 
291 

292 
293 



022737 
001441 
104401 

005737 
001012 
123727 
001406 
023727 
001005 
104406 
000403 
112737 

000416 



005227 
00U02 
000137 
012737 
005037 
012704 
012700 
012702 

022712 
001415 

011005 
000240 
000240 
005737 
001403 
005037 
000764 
061400 

005724 
005722 
000760 
010405 
162705 
161500 
010037 
062700 
010037 
062700 
010037 
062700 
010037 
000137 









C«P 


4rSENDAD.»r42 








BEO 


68$ 










TYPE 


,69$ 










GET VALUE FOR SOFTUARE 








TCT 


aiV42 












70$ 




\AJ 1 ceo 








$£NV.*1 












70$ 












SUR,4rSUREG 










71$ 






















DO 

UK 


71$ 






noi 1 ^M. 


70*- 


novB 


*1.$AUT0B 






71*' 














OK 


68$ 










.ASCIZ 


<CRLF>«nAINDEC 






68S: 








Mini 




FLOAT: 


iniL 












Scu 


6$ 




002714 






IMP 


SETUP4 




002452 


000004 


6S: 


MOW 

nuv 


#TIM0UT.arERRV 


VC"«C 1 C 








FLAG. 2 




OOPS?? 






nuv 


#0CTM0D.R4 


\ OvV/ 1 V 






nuv 


-rl60010.R0 


()0?S66 






MOV 


MMNKTA,R2 


0000? 1 




11- 

1 9 m 




#21. 


(R2) 








DCU 


5$ 








2$: 


nuv 


(RO), 


R5 








MHO 


















0?4?1? 






TCT 


FLAG. 2 










tscu 


4$ 




n?^?i? 








FLAG. 2 










On. 


1$ 








4t- 




(R4), 


RO 








TVT 


(R4) + 










T^T 


(R2)* 










BR 


1$ 










MOV 


R4. 


R5 


noonn? 






SUB 


»2, 


R5 








SUB 


(R$), 


RO 


024064 






MOV 


RO, 


RGO 


000002 






ADD 


»2. 


RO 








MOV 


RO. 


RG2 


000002 






ADD 


»2, 


RO 


024070 






MOV 


RO. 


RG4 


000002 






ADD 


#2. 


RO 


001262 






MOV 


RO. 


$BASE 


002632 






JMP 


SETUPI 





;;ACT-11? 
; .-BRANCH IF YES 
;;TYPe ASCIZ STRING 
SWJTCH REGISTER 
;;AR£ UE RITMING UNDER XXDP/ACT? 
; .-BRANCH IF YES 
;:ARt WE RlfMlNG UNDER APT? 
* 'BRANCH IF YES 

; I- SOFTWARE SWITCH REG SELECTED? 

; .-BRANCH IF NO 

;;6ET SOFT-SWR SETTINGS 

;;SET AUTO-MODF INDICATOR 

;;6ET OVER THE ASCIZ 



; .-PRINT ONCE 



.-.-TIME OUT INTERRUPT ADDRESS 

.■POINTER TO THE OCTAL MODULE TABLE 
.-STARTING ADDRESS OF DEV TABLE 
.-POINTER TO THE RANK TABLE 

;.-IS IT LAST ADDRESS? 
; .-BRANCH IF YES 

.-.-TRY TO ADDRESS THE DEVICE ADDRESS 



IS INTRPT FLAG SET? 

BRANCH IF NOT SET 

CLEAR INTRPT FLAG 

ADDRESS NEXT ADDRESS 

ADD CONTENT OF MOD TAB TO 

GET NEXT ADDRESS 

POP UP OCTMOD TAB 

POP UP TANKTA 

BRANCH 

CURRENT POINTER 

BACK UP BY 2 

GET THE DESIRED ADDRESS 

ADDRESS OF KWllC 

GET NEXT ADDRESS 

NEXT DEV ADDRESS 



.-THIS IS TIMEOUT INTERRUPT ROUTINE 
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CZICWLA.P11 l3-#WR-80 07:39 GET VALUE FOR 

295 

296 002A52 012737 000001 02A212 ^I^OUT: MOV 

297 002460 00572A TST 

298 002A62 005722 TST 

299 002A64 02K27 000020 CMP 

300 002470 0OU03 BEG 

301 002472 062700 000010 ADD 

302 002476 000410 BR 

303 002500 032700 000010 1$: BJT 

304 002504 001403 BEG 
505 002506 062700 000010 ADD 

306 002512 000402 BR 

307 002514 062700 000020 2$: ADD 

308 002520 000002 3$: RTI 
309 

310 002522 000010 OCTMOD: 0010 

311 002524 000020 0020 

312 002526 000010 0010 

313 002530 000010 0010 

314 002532 000010 0010 

315 002534 000010 0010 

316 002536 000010 0010 

317 002540 000010 0010 

318 002542 000010 0010 

319 002544 000010 0010 

320 002546 000010 0010 
3?1 002550 000020 0020 

322 002552 000010 0010 

323 002554 000010 0010 

324 002556 000010 0010 

325 002560 000010 0010 

326 002562 000000 0000 

327 002564 000000 0000 
328 

329 002566 000001 RA^JA: 0001 

330 002570 000002 0002 

331 002572 000003 0003 

332 002574 000004 0004 

333 002576 000005 0005 

334 002600 000006 0006 

335 002602 000007 0007 

336 002604 000010 0010 

337 002606 000011 0011 

338 002610 000012 0012 

339 002612 000013 0013 

340 002614 000014 0014 
541 002616 000015 0015 

342 002620 000016 0016 

343 002622 000017 0017 

344 002624 000020 0020 

345 002626 000021 0021 

346 002630 000022 0022 
347 

348 002632 012737 017770 000004 SETUPl: MOV 

349 002640 013700 001256 MOV 
S50 002644 000300 SWAB 



I 2 

SOFlyARE SWITCH REGISTER 



*1, FLAG. 2 

(R4)* 

(R2)* 

(R4), #20 
1$ 

#10. RO 
3$ 

#10, RO 
2$ 

#10. RO 
3$ 

#20. RO 



SET INTRPT FLAG 
INCREMENT OCTMOD POINTR 
INCREMENT RANKTA8 POINTR 
IS NEXT LOC AT EVEN ADDRESS 
BRANCH IF YES 
INDICATE NO DEVICE 
RETURN FROM INTRPT 
IS IT ON EVEN BOUNDARY 
BRANCH IF YES 
MAKE IT EVEN aXf»tt)ARY 
RETURN FROM INTRPT 
INDICATES NO DEVICE PRESENT 
RETURN FROM INTRPT 



#TRAP4. a#ERRVEC 

SVECT1.R0 

RO 



.•ADDRESS OF TRAP ROUTINt 
.GET PRIORITY LEVEL 
;PUT IN LEFT HALF 



.•W!M. MACni 30A(1052) 15-*AR-80 
^ZtcWLA.PIl l5-*W»-80 07:39 



07:A0 PAGE 1-U 

GET VALUE FOR SOFTUARE 



J 2 
SWITCH REGISTER 



SEO 002? 



351 

352 

355 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

36A 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

3/7 

1 

1 

1 

1 

3/8 
1 
1 



580 
1 
1 
1 

58 
1 
1 
1 

38, 
1 
1 
1 

583 

1 
1 

(D 
384 



002646 042700 177400 
002652 010037 024104 



BIC 
MOV 



#1 77400, RO 
RO.PRI 



002664 
002670 
002674 
002700 
002702 
002706 
002712 
002714 
002720 
002722 
002726 
002734 
002742 
002750 
002756 
002762 
002764 
002770 
002770 
002774 

003066 
003066 
003072 

003144 
003144 
003150 

003200 
003200 
003204 

003234 
003234 
003240 

003312 
003312 
003316 

003350 
003350 
00335^ 

003426 
003426 



104401 
000424 



104401 
000413 



104401 
000413 



104401 
00042; 



104401 
000414 



104401 
000424 



104401 



ni X7V7 


WIcOc 


vt'«UOc 




Miriu 

HUV 










■UDLI 

rauw 


vie' W 


n?in7? 








yj 1 jiKJ 1 


oni ?SA 






nuv 




1 77ino 

) f t HSJSJ 








ni ni ?n 










nA?7ni 


VAAAA/c 






Ann 


n?57no 


np^in? 






rMP 


nni X7? 








one 


005737 


000042 




SETUP4: 


TST 


001402 








BEQ 


000137 


002770 






JW» 


012777 


01 7554 


021136 


1$: 


MOV 


013777 


024104 


021132 




MOV 




017662 


021126 




MOV 




024104 


021122 




MOV 


005227 


1 77777 






INC 


001402 








BEQ 


000137 


003530 






JMP 








HELP: 




104401 


002776 






TYPE 


000434 








BR 



003074 
003152 
003206 
003242 
003320 
003356 
003434 



;;65$: 
64S: 



;;67$: 
66$: 



;;69$: 
68$: 



• •71S' 



;;75$: 



;;77$: 

^6$: 



NOW SETUP BUS ADDRESS VALUES 

SBASE.CSR 
NOU SETUP VECTOR ADDRESSES 



#PCVO.RO 

$VECT1,R1 

#-400-R1 

R1.(R0)+ 

#2,R1 

#PCV1 +4,R0 

SETUP3 

»tr42 

1$ 

HELP 

#INTRPT,aPCVO 

PRI . apsvo 

#TIMRTN.aPCV1 

PRI, apsvi 
#-1 

HELP 
RESTRT 



•ASCIZ 

TYPE 
BR 

.ASCIZ 

TYPE 
BR 

.ASCIZ 

TYPE 
BR 

.ASCIZ 

TYPE 
BR 

.ASCIZ 

TYPE 
BR 

.ASCIZ 

TYPE 
BR 

.ASCIZ 
TYPE 



:; CLEAR UNWANTED BITS 
;;SAVE DEVICE LEVEL 



.STORE BL'S ADDRESS 



SETUP VECTOR POINTER 

GET BASE VECTOR ADDR 

CLEAR UNWANTED BITS 

PUT ADDRS 

INCR.TO NEXT LOC. 

DONE ALL LOCATIONS? 

BR, IF NOT DONE 

TEST CHAIN MODE UNDER XXDP 

BR, IF CHAIN MODE 

ADDRESS OF INTERRUPT ROUTINE 
RISE PRIORITY 

ADDRESS OF TIME INTERVAL INTERRUPT ROUTINE 
BUS LEVEL 

PROMPT FOR INPUT 



,65$ ;;TYPE ASCIZ STRING 

64$ ;;GET OVER THE ASCIZ 

<200>/SELECT FUNCTION BELOW. TYPE CHARACTER CARRIAGE RETURN/ 

,67$ ;;TYPE ASCIZ STRING 

66$ ;;GET OVER THE ASCIZ 

<200>/ 'T' TO TEST CLOCK(C0NTROL C TO EXIT)/ 

,69$ ;;TYPE ASCIZ STRING 

68$ ;;GET OVER THE ASCIZ 

<200>/ 'S' TO SET CLOCK/ 

,71$ .-.TYPE ASCIZ STRING 

70$ ;;GET OVER THE ASCIZ 

<200>/ 'R* TO READ CLOCK/ 

,73$ ;;TYPE ASCIZ STRING 

72$ ;;GET OVER THE ASCIZ 

<200>/ 'M' MODIFY OR READ ADDRESS AND VECTOR/ 

,75$ ;;TYPE ASCIZ STRING 

74$ ;;6£T OVER THE ASCIZ 

<200>/ 'A' ACCURACY OF CLOCK/ 

,77$ ;;TYPE ASCIZ STRING 

^6$ ;;GET OVER THE ASCIZ 

<200>/ 'G' MODIFY SOFTWARE SWITCH REGISTER/ 



,79$ 



TYPE ASCIZ STRING 



.MAIN. HACYll 30A(1052) 13-WAR-80 



C7KWLA.P11 07:39 


(1) 


003432 


000413 




(1) 








<1) 


003462 






385 


003462 


104401 


003470 


(1) 


005466 


000420 




(1) 
H) 


003530 






586 


003530 


104401 


001203 


587 


003534 


104401 


001202 


588 


003540 


104407 




589 


003542 


012706 


001100 


590 


003546 


005037 


001172 


591 


003552 


104411 




592 


003554 


013604 




595 


005556 


022704 


000124 


594 


005562 


001002 




595 


003564 


000157 


004002 


596 








597 


003570 


022704 


000123 


598 


003574 


001005 




599 


003576 


004757 


013136 


400 


003602 


000752 




401 








402 


003604 


022704 


000122 


403 


003610 


001003 




404 


003612 


004737 


014426 


405 


003616 


000744 




406 








407 


003620 


022704 


000115 


408 


003624 


001003 




409 


003626 


004737 


017234 


410 


003652 


000736 




411 








412 


005634 


022704 


oroioi 


415 


003640 


001004 




414 


003642 


004737 


014754 


415 


003646 


000005 




416 


003650 


000727 




41/ 








418 


003652 


022704 


000105 


419 


003656 


001003 




420 


003660 


000000 




421 


003662 


000137 


002770 


422 








423 


003666 


022704 


000110 


424 


003672 


001002 




He. J 






VV/C 1 IV 




003700 


022704 


000107 


t^27 


003704 


001003 




428 


003706 


104406 




4^9 


003710 


000137 


003530 


'♦iO 


003714 






(1> 


003714 


104401 


003722 


(I) 


003720 


000424 




(1) 
(1) 


003772 







K 2 

07:40 PAGE 1-15 

GET VALUE FOR SOFTWARE SWITCH REGISTER 



;-79f: 



;:81$: 

86$: 

RESTRT; 



IS: 
2$: 
3$: 
4$: 

5$; 

6$: 
7$: 

8$: 



;;65$: 
64$: 



BR 

.ASCIZ 

TYPE 
BR 

.ASCJZ 

TYPE 

TYPE 

CKSWR 

MOV 

CLR 

RDLIN 

MOV 

CMP 

BNE 

JMP 

CMP 
BNE 
JSR 
BR 

CMP 

BNE 
JSR 
BR 

CMP 
BNE 
JSR 
BR 

CMP 

BNE 

JSR 

RESET 

BR 

CMP 
BNE 
HALT 
JMP 

CMP 

BNE 

JMP 

CMP 

BNE 

GTSWR 

JMP 

TYPE 
BR 

.ASCIZ 



78$ ;;GET OVER THE ASCIZ 

<200>/ 'E* EXIT HALTS CPU/ 

.31$ ;;TYPE ASCIZ STRING 

80$ ;;GET OVER THE ASCIZ 

<200>/ 'H' HELP PRINTS THIS MESSAGE/ 

,$CRLF 
,$OUES 



MSTACK, SP 
$TIMES 

a(SP)+, R4 
*124, R4 
1$ 

LOGTST 

#125, R4 
2$ 

PC, NEWT IM 
RESTRT 



*122. 

3$ 

PC. 

RESTRT 

*115, 
4$ 

PC. 

RESTRT 

#101, 
5$ 

PC, 

RESTRT 

#105, 
6S 

HELP 

#110, 
7$ 

HELP 

#107, 

8$ 

RESTRT 

.65$ 
64$ 



R4 

READ 
R4 

DEVCOD 
R4 

A.CLK 
R4 

R4 
R4 



;;SET THE STACK POINTER 
.-.-INITIALIZE NUMBER OF ITERATION 

;;GET THE CHARACTER 
;;IS IT 'T'? 

; -go" TEST THE CLOCK 

;;IS IT 'S'? 
;;NO:BR 

;;GET NEW TIME 
.-.-WAIT FOR CHARACTER 

;;IS IT 'R'? 
* 'NO 'BR 

;;G0'rEAD THE CURRENT TIME 



;IS IT 'M'? 
'NO'BR 

•GET NEW ADDRESS AND VECTOR 



;;IS IT 'A'? 
* *N0 *BR 

;;60' CHECK ACCURACY OF CLOCK 



;IS IT •£•? 
;NO:BR 
.•HALT CPU 

.•RESTART THE PROGRAM 

;IS IT 'H'? 
'NO'BR 

•go' TO PRINT HELP MESSAGE 

.IS IT '6'? 

;N0:8R 



TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



<200>/"1LLEGAL CHARACTER. TYPE 'H* FOR HELP"/ 



.MAIN. nACYll 30A(1052) 13-mft-80 



CZKWLA.P11 


l3-mR-80 07:39 




A31 


003772 


000137 


003530 






Wi' fO 








A33 








434 










435 


004002 


012703 


000010 




456 


004006 


012777 


000400 




437 


004014 


001426 






438 


004016 


104401 


004024 




(1) 
(1) 


004022 


000415 




(1) 


004056 








439 


004056 


^■\2777 


000400 


ni 777A 


440 


004064 


005303 






441 


004066 


001347 






442 


004070 


000000 






443 


004072 


004737 


016106 




444 


004076 


104407 






445 










446 










447 










448 










449 










(3) 










(3) 










(2) 


004100 


000004 






(1) 


004102 


012737 


000012 


001 1 77 

yjyj lire 


450 


004110 


012737 


000340 


1 7777 t 


451 


004116 


012700 


004376 




452 


004122 


022700 


004436 




453 


004126 


003002 






454 


004130 


000137 


004214 




455 


004134 


012077 


017722 




456 


004140 


012037 


001124 




457 


004144 


013737 


001124 




458 


004152 


005137 


024214 




459 


004156 


017737 


017700 


001 1?6 
vv 1 lew 


460 


004164 


043737 


024214 


0011?^ 


461 


004172 


023737 


001124 


001 126 


46? 


004200 


001404 




463 


004202 


017737 


017654 


001 1?? 

vv 1 1 CC 


464 


004210 


104001 






465 


004212 


000743 






466 


004214 


012777 


014356 




467 


004222 


005077 


017634 




468 


004226 


017737 


017630 


W 1 1 CO 


469 


004234 


012737 


000000 


vv 1 1 CH 


470 


004242 


013737 


001124 




471 


004250 


005137 


024214 




472 


004254 


043737 


024214 


vv 1 1 CO 


473 


004262 


023737 


001124 


001126 


474 


004270 


001404 




475 


004272 


017737 


017564 


001122 


476 


004300 


104001 






a77 


004302 


012777 


014356 


017552 


478 


004310 


000005 






479 


004312 


017737 


017544 


001126 
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GET VALUE FOR SOfTUARE SWITCH REGISTER 



ROU^I 



LOGTj 
3$: 



;;65$: 
64S: 



T: 



5$: 



JHP 



MOV 

BIT 
BEQ 
TYPE 
BR 

•ASCIZ 

MOV 

DEC 

BNE 

HALT 

JSR 

CKSWR 



RESTRT 
START 



#10, 
*BIT8. 
5$ 
.65$ 
64S 



R3 ;;L00P COUNTER 

aCSR .-.CHECK BATTERY? 

; .-BRANCH IF BATTERY IS O.K. 
.-.-TYPE ASCIZ STRING 
.-.GET OVER THE ASCIZ 



<200>/' BATTERS IS DISCHARGING"/ 



mi J8, SCSR 

R3 

3$ 



PC. 



CNTLC 



; .-RESET THE CLOCK 
.-.-COUNT DOWN 
.-.-BRANCH IF NOT ZERO 

.-.-IS IT CONTROL C? 

.-.-IS SOFTWARE SWITCH SELECTED? 



THIS ROUTINE WILL SET AND RESET ALL WORKING BITS IN CSR 



; ************* 

•TEST 1 
• ************* 

TST1 : 



1$: 
2$: 



************************************************i^* 

TEST SET/RESET BITS IN CSR 
*************************************************i^ 



3$: 
4$; 



5$: 



SCOPE 






MOV 


#10..$TinES 


MOV 


0PR7. 


PSW 


MOV 


*BITA8, 


RO 


CMP 


*BITEN. 


RO 


BGT 


2$ 




JMP 


4$ 




MOV 


(R0)+. 


SCSR 


MOV 


(RO)*, 


GOOD 


MOV 


GOOD, 


G0001 


COM 


G00D1 




MOV 


acsR, 


BAD 


BIC 


G00D1. 


BAD 


CMP 


GOOD. 


BAD 


BEQ 


3$ 




MOV 


acsR. 


BADA 


ERROR* 1 




BR 


1$ 




MOV 


#14356, 


acsR 


CLR 


acsR 




MOV 


acsR. 


BAD 


MOV 


#0. 


GOOD 


MOV 


GOOD, 


G00D1 


COM 


G00D1 




BIC 


G0001, 


BAD 


CMP 


GOOD, 


BAD 


BEQ 


5$ 




MOV 


acsR, 


BADA 


ERROR* 1 






MOV 


#14356. 


acsR 


RESET 






MOV 


SCSR. 


BAD 



.-.-DO 10. 



ITERATIONS 
GET THE PRIORITY 
POINTER TO THE TABLE 
IS IT END OF THE TABLE? 
N0:6R 
EXIT 

GET THE VALUE FROM THE TABLE 
EXPECTED VALUE IN CSR 
EXPECTED VALUE IN G0QD1 TOO 
UNWANTED BITS IN G00D1 
READ CSR 

CLEAR UNWANTED BITS 
ARE THEY EQUAL? 
YES 'BR 

READ STATUS Of CSR 

THE BIT SET IN CSR NOT MATCH WITH EXPECTED. 

GO GET NEXT VALUE 

SET POSSIBLE BITS IN CSR 

CLEAR ALL BITS IN CSR 

READ CURRENT CSR 

EXPECTED VALUE 



CLEAR UNWANTED BITS 
ARE THEY EQUAL? 
YES:BR 
READ CSR 



READ CSR 
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TEST SET/RESET 



M 2 

BITS IN CSR 



SEQ 0025 



A80 004320 

481 004326 

482 004354 
485 004340 

484 004346 

485 004354 

486 004356 

487 004364 

488 004370 

489 004372 
490 

491 004376 

492 004400 

493 004402 

494 004404 

495 004406 

496 004410 

497 004412 

498 004414 

499 004416 

500 004420 

501 004422 

502 004424 

503 004426 

504 004430 

505 00443? 

506 004/,3'. 

507 004436 
508 

509 
510 
(3) 
(3) 

(2) 004440 

(1) 004442 

511 004450 

512 004454 

513 004456 

514 004462 

515 004466 

516 004474 

517 004500 

518 004504 

519 004512 

520 004516 

521 004524 

522 004530 

523 004536 

524 004540 

525 004544 

526 004546 

527 004554 

528 004562 

529 004570 
550 004572 
531 004574 



012737 
013737 
005137 
043737 
023737 
001403 
017737 
004737 
104407 
000137 

000001 
000001 
000002 
000002 
000004 
000004 
000010 
000010 
000040 
000040 
000100 
000100 
100000 
004000 
040000 
002000 
000000 



000004 
012737 
004737 
104407 
005037 
012702 
012737 
005077 
010277 
012777 
005337 
012737 
004737 
027737 
001372 
005737 
001413 
017737 
013737 
017737 
104003 
000733 
005237 



000000 


001124 


MOV 


*0, 


GOOD 




Uc*»c 1 *» 


nuv 


WAJD, 


(kXjD 1 


024214 




COM 


G0OD1 




024214 


001126 


BIC 


G00D1, 


BAD 


001124 


001126 


CMP 


GOOD, 


BAD 






BEC 


6$ 




017500 


001122 


MOV 


acsR. 


BADA 


016106 


6S: 


JSR 


PC. 


CNTLC 






CKSUR 






004440 




JMP 


BITEN+2 





000012 
016106 

024046 
047777 
007777 
017362 
017364 
000010 
024050 
077777 
017206 
017334 

024210 

017316 
024050 
017274 



024046 



EXPECTED VALUE 



CLEAR UNWANTED BITS 
ARE THEY EQUAL? 
YES :BR 

RAO 'status of CSR 



;;EXIT 



BITAS: 



BITEN: 



000001 
000001 
000002 
000002 
000004 
000004 
000010 
000010 
000040 
000040 
000100 
000100 
100000 
004000 
040000 
002000 
00000 



001172 



024050 

017350 
024052 
024050 



001126 
001124 
001122 



;;*** 

;*TES 

TST2: 



1$: 



11$: 

2$: 
3$: 



****************** 1^1^ 1^*1^ 1^1^,^ 

T 2 TEST TIME INTERVAL COUNTER DECREMENTS IN PROPER ORDER 

************************************************************ 



4$: 



SCOPE 

MOV 

JSR 

CKSyR 

CLR 

MOV 

MOV 

CLR 

MOV 

MOV 

DEC 

MOV 

JSR 

CMP 

BNE 

TST 

BEO 

MOV 

MOV 

MOV 

ERROR+3 

BR 

INC 



#10.,$TIMES 
PC. CNTLC 



;;D0 10. ITERATIONS 



NLMBR 
MW777, 
M7777. 
aCSR 
R2. , 

KOUNT 

1177777, 

PC. 

aRG4. 

3$ 

FLA6.1 
4$ 

aRG4. 
KOUNT. 

acsR. 

1$ 

NUMBR 



R2 

KOUNT 
aRG4 

acsR 

COUNTR 

DMT 

KOUNT 



BAD 

GOOD 

BADA 



TIMEINT COUNT IN R2 
ACTUAL VALUE IN REG4 
CLEAR CSR 

TIMINT COUNT INTO DEV REG 

READ TIME INTERVAL 

DECREMENT COUNT BY ONE 

INITIALIZE THE COUNTER 

DEAD MAN TIMER 

IS TIME INTERVAL CHANGES? 

BRANCH IF NOT CHANGED 

IS ERROR FLAG SET 

BRANCH IF NOT 

READ TIME INTERVAL 

EXPECTED 

STATUS OF CSR 

DEAD MAN TIMER FAILED 

TRY AGAIN 

JUST FOR CHECK 



N 2 
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CZKW-A.P11 13-WAR-80 07:39 T2 TEST TIflEINTERVAL COLWTER DECREMENTS IN PROPER ORDER 



SEQ 0026 



552 004600 

553 004604 

534 004606 

535 004614 

536 004622 

537 004630 

538 004632 

539 004640 

540 004642 

541 004646 

542 004654 

543 004656 

544 004660 

545 004662 

546 004670 

547 004672 

548 004674 

549 004676 

550 004700 

551 004706 

552 004710 

553 004716 

554 004720 

555 004722 

556 004726 
557 

558 
559 
560 
561 
562 
(3) 
(3) 

(2) 004730 

(1) 004732 

563 004740 

564 004744 

565 004746 

566 004754 

567 004760 

568 004766 

569 004774 

570 005002 
571 

572 005006 

573 005010 

574 005012 
575 

576 005016 

577 005024 

578 005052 

579 005040 

580 005042 
581 

582 005046 

583 005050 



005557 
001544 
012757 
013737 
025737 
001404 
017757 
104001 
012702 
032777 
001006 
005502 
001572 
017757 
104004 
000005 
000240 
000240 
032777 
001405 
017757 
104005 
000660 
004757 
10440/ 



000004 
012757 
004757 
104407 
012757 
005077 
012777 
0}2777 
017757 
012704 

005504 
001460 
005557 

042777 
017757 
023737 
001566 
015703 

005503 
001376 



024050 

007776 
024046 
001124 



001124 
001126 
001126 



017224 001122 



077777 
040000 



5$: 

017206 6$: 



017174 001122 



040000 
017146 

016106 



000012 
016106 

000300 
017102 
0^7777 

oooon 

017070 
000500 



024202 

000001 
017040 
024202 

024054 



017154 
001122 



001172 



024054 

017102 
017066 
024202 



017036 
024056 
024056 



7$: 



8S: 



DEC 


KOUNT 




: CHECK NEXT DECREMENT 


BNE 


2$ 




.•BRANCH IF NOT ZERO YET 


MOV 


07776, 


GOOD 


.•EXPECTED VALUE IN GOOD 


MOV 


NlfOR, 


BAD 


.'ACTUAL VALUE IN BAD 


CMP 


GOOD, 


BAD 


.•IS IT ORIGINAL COUNT? 


BEQ 


5S 




.•BRANCH IF YES 


MOV 


iCSR, 


BADA ; 


.•STATUS Of CSR 

.-VALUE DIDN'T MATCH WITH EXPCT 


ERROR+1 


M77777, 


R2 ; 


MOV 


BIT 


*8IT14, 


acsR 


;IS (TI) BIT SET IN CSR ? 


BNE 


7% 




.'BRANCH IF BIT#14 SET 


DEC 


R2 




.'DECREMENT COUNTER 


BNE 


6$ 




.-BRANCH IF NOT ZERO 


MOV 


•CSR, 


BADA 


.'CONTENT OF CSR 
;8IT #14 DIDN'T SET 


ERRORH 






RESET 






NOP 








NOP 








BIT 


*BIT14, 


acsR 


;(TI) BIT STILL SET? 


6E0 


8S 




.•BRANCH IF CLEARED 


MOV 


SCSR, 


BADA ) 


.•STATUS OF CSR 


ERROR+5 






;BIT#14 FAIL TO RESET 


BR 


IS 




.'TRY AGAIN 


JSR 


PC, 


CNTLC 




CKSUR 









•TEST 5 



FIND TIME CONSTANT FOR 0.5MSEC 



TST3: SCOPE 

MOV #10..$TIMES 

JSR PC, CNTLC 
CKSUR 

1$: MOV #300, CONST 

CLR aCSR 

11$: MOV 0(^7777, aRG4 

MOV #BIT3*eiT0,8CSft 

MOV «Ra4, EXPCf 

MOV #500, R4 

2$: DEC R4 

BEQ 7$ 

DEC EXPCT 

5S: BIC #81 TO, aCSR 

MOV aRG4, READA 

CMP EXPCT. READA 

BNE 5S 

MOV CONST, R5 

4$: DFC R3 

BNE 4$ 



;;D0 10. ITERATIONS 

;;IS IT CONTROL C? 

.';ASSl« TIME CONSTANT 
' 'CLEAR CSR 

;;TIME INTERVAL INTO REG 
;;READ TIME INTERVALSETTING HOLD BIT 
;;REAO TIME INTERVAL 
;;TRy SO MANY TIME 

;; DECREMENT COUNTER 
' *EXI T IF ZERO 

: -DECREMENT READ INTVAL BY ONE 

;:R£SET HOLD BIT 
; .'ACTUAL TIME INTERVAL 
;,'IS IT EQUAL TO EXPECTED 
:;TRY AGAIN 
;;6£T CONSTANT 

.'.-DECIDES TIME CONST 
.-.DECREMENT TILL ZERO 
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017737 
013737 

163737 
001004 
005237 
000137 
023727 
002007 
013737 
005337 
000137 
013737 
006237 
000137 
000005 
000240 
000240 
004737 
104407 



CZKW»A.P11 


584 


005052 


585 


005060 


586 




587 


005066 


588 


005074 


589 


005076 


590 


005102 


591 


005106 


592 


005114 


593 


005116 


594 


005124 


595 


005130 


596 


005134 


597 


005142 


598 


005146 


599 


005152 


600 


005154 


601 


005156 


602 


005160 


603 


005164 


604 




605 




606 




607 




608 




609 




610 




(3) 




(3) 




(2) 


005166 


(1) 


005170 


611 


005176 


612 


005204 


613 


005210 


614 


005212 


615 


005216 


616 


005222 


617 


005224 


618 


005230 


619 


005234 


620 


005242 


621 


005250 


622 


005256 


623 


005264 


624 


005272 


625 


005300 


626 


005306 


627 


0C5310 


628 


005316 


629 




630 


005320 


631 


005324 


632 


005326 


633 


005332 


634 


005334 


6^5 


005336 



B 3 
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T3 FIND TIME CONSTANT FOR 0.5MSEC 



SEO 0027 



017012 


024056 




nov 


aR64, 


REAOA 


024056 


024060 




MOV 


READA, 


READB 


024202 


024056 




SUB 


EXPCT, 


REAOA 










5$ 




024054 






INC 


CONST 




005006 






J«P 


2S 




024056 


000002 


5S: 


C«P 


READA, 


#2 








BGE 


6S 




024060 


024202 




nov 


REAOB, 


EXPCT 


024054 






DEC 


CONST 




005006 






jup 


2$ 




024060 


024202 


6$: 


MOV 


READB, 


EXPCT 


024054 






ASR 


CONST 




005006 






JMP 


2S 








7$: 


RESET 












NOP 












NOP 






016106 






JSR 


PC, 


CNTLC 








CKSWR 





000004 
012737 
012737 
004737 
104407 
012700 
022700 
001436 
005077 
012037 
013777 
052777 
017737 
042737 
013737 
163737 
023727 
003743 
017737 
104016 

004737 
104407 
000137 
047777 
046004 
040030 



000012 
000340 
016106 

005332 
005354 

016632 
001124 
001124 
000010 
016614 
040000 
001124 
001126 
024214 



VALUE READ 

STORE IN OTHER LOCATION 
TO BE USED LATER 
TINE INTERVAL hAS CHANGED? 
BRANCH IF YES 

INCREMENT ASSUMED CONST VALUE 
TRY NEXT 

DIFF GREATER THAN 2? 
YES BRANCH 

CURRENT VALUE IN EXPECT 
TO GET CORRECT CONST 
GO BACK 
EXPCT = READB 
DIVIDE BY 2 



"^HIS ROUTINE WRITES TIME INTERVAL VALUES IN DEV RG4 

AND READS THE VALUE IN RG4 AND THEN COMPARES WITH EXPECTED VALUE 



001172 
177776 



West 

TST4: 
TIMEl; 



1$: 
2$: 



********************************************************** 

CHECK TIME INTERVAL WRITES AND READS CORRECTLY 



016626 
016612 
001126 
001124 
024214 
024214 
000001 



3$: 



016546 001122 

016106 
005356 



4$: 

TIMTA8: 



SCOPE 

MOV 

MOV 

JSR 

CKSyR 

MOV 

CMP 

BEO 

CLR 

MOV 

MOV 

BIS 

MOV 

BIC 

MOV 

SUB 

CMP 

BLE 

MOV 

ERROR* 

JSR 

CKSWR 

JMP 

1.7771 

46004 

40030 



#10.,$TIM£S 
<W^7, PSW 
PC. CNTLC 

*TIMTAB,RO 
#TIMENO,RO 
4$ 

acsR 

(R0)+, GOOD 
GOOD, aR64 
481 T3, aCSR 
aRG4. BAD 
#40000, GOOD 
GOOD, G00D1 
BAD. GOODl 
G00D1 , #1 
2$ 

aCSR, BADA 



;;D0 10. ITERATIONS 

;;IS IT CONTROL C 



16 



PC. 
TIMEND+2 



CNTLC 



POINTER TO THE TABLE 
IS IT END OF TABLE? 
EXIT 

CLEAR CSR 

VALUE TO BE WRITTEN IN RG4 
IN DEV RG4 

SET BIT TO READ TIME INTERVAL 

ACTUAL READ VALUE 

CLEAR TIME INTERVAL ENABLE BIT 

KEEP GOOD FOR PRINT OUT 

ARE THEY EQUAL? 

IS DIFFERENCE GREATER THAN 1 

BRANCH IF NOT 

GET STATUS OF CSR 

ERROR: SOFT ERROR TIME INTERVAL 

SET DIDN'T MATCH WITH ACTUAL 

IS IT CONTROL C? 



;:G0 TO NEXT ROUTINE 
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oX) 


UU35hU 


U*»Or 3h 








o3o 






/;.TO 




ft/ 7500 


<^ r. 


UU335U 


ft/ oftftft 


1 

o*» 1 




ft/ 705/ 




w53>*» 


WWW 
































AZ.B 












('K'S 

y jf 








nn^T^A 

\AJjjjO 




^ 1 ^ 
V 1 / 


UUj jOU 


A1 5777 

U 1 c f Jf 


<w/ Q 
DMT 


w3 jOO 


ftl 5777 

U 1 1 r jr 




UUj JfH 


ftl 5777 


OJ 1 




ni 5777 
U 1 c f 3f 


OJt 




1 A5777 
1 Oc f Ji 


05 J 


WJH 1 o 


ni 7777 

U 1 5f jr 


O J't 






OJ ' 


UU J*f JU 


VA/5Uf f 


O JO 




A1 ?777 


03> 




ni ?777 


03C 




ni?777 
u 1 cf jr 




/v>«:a«;a 

UU3S30 


fV»A7''57 
VA/*»f JI 


OOU 






OO 1 


nf»^AA3 
Uv5'»Oc 




OOc 






OOj 


fin^^AA 

UUj*<00 






UVOHf u 


\AJjJJf 




(VT\Z>7Z. 
UV/J** f 


1 rin7A'i 

1 Uv 5*« J 


AAA 


(A/jHf 0 


1 nAn7A 


AA7 




Uvvs 1 f 


AAS 
OOC 






AAO 




ft/vifto*; 

vAfwUU J 


A7n 




AAA?/ A 


A71 

Of 1 


\AJjJ\fO 




A7P 
Or c 






A77 

Of J 




m 7777 

U 1 jr jf 


Or *♦ 


WJ JcU 


ni 7777 

U 1 jf jf 


Of 5 


wj JcO 


n?77^7 

VC Jf Jf 


A7A 

Of O 






A77 

Of r 


vvj J jO 


1 UhUj 5 


A 70 
Of O 






A70 
Or T 






AAn 

OOv 






681 






682 






683 






684 






685 






(3) 






(3) 







000001 
000340 
000005 
000007 
000040 
024106 
024212 
016426 
000040 
040077 
000002 
015726 

024212 



024110 



024102 



001172 
024106 
024226 
024110 
024106 
177776 



016420 
016420 
016030 



C 3 
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T4 CHECK TIMEINTERVAL WRITES AND READS CORRECTLY 

46754 
40004 
42003 
47502 
42000 
43254 
TIMEND: 00000 



THIS ROUTINE CHECKS IF INTERRUPT OCCURS AT GIVEN VECTOR AND BR LEVEL 

*TEST S TEST INTERRUPT OCCURS AT GIVEN VECTOR AND BR LEVEL 

********************************************** 

tST5: SCOPE 

;;D0 1 ITERATION 



sEO 0028 



CHKINT : 
IS: 



MOV 
MOV 
MOV 
MOV 
SUB 
MOV 
CLR 
CLR 
MOV 
MOV 
MOV 
JSR 

TST 



#1.$TIMES 

#340, DPR I 

#5. INTREG 

#7. LEVEL 

#40, DPR I 

DPRI , psy 
FLAG. 2 

acsR 

#81 T5, aCSR 
#40077, aRG4 



2$: 



001124 
024110 001126 
001124 001126 



BNE 

DEC 
8PL 

ERROR+34 
BR 

RESET 
NOP 
NOP 
NOP 
MOV 
MOV 
CMP 
BEO 
ERROR +35 



#2, 
PC, 

FLAG. 2 

2$ 

LEVEL 
1S 

3$ 



TIMES 
INTRTN 



INTERRUPT FLAG 
SET LEVEL 
LOWER PRIORITY 

CLEAR INTERRUPT FLAG 
CLEAR CSR 
ENABLE INTERRUPT 
TIME INTERVAL VALUE 
2 SECOND INTERVAL 
WAIT FOR INTERRUPT 



;;DID INTERRUPT OCCUR? 
YESrSR 



BRLV, 
LEVEL, 
GOOD, 
3S 



GOOD 

BAD 

BAD 



GOT NO INTERRUPT WITH 8PU AT LEVEL 0 
EXIT 



EXPECTED BRLV 
ACTUAL LEVEL 

BRANCH IF EQUAL 
INTERRUPTED AT WRONG LEVEL 



3$: 



THIS ROUTINE IS TO INTERRUPT AT PARTICULAR TIME INTERVAL 

• *************************************************************** 

•TEST 6 TEST TIME INTERVAL INTERRUPT 
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^ZKWLA.PII 15-WAR-80 07:39 T6 TEST 



D 3 

TIME INTERVAL INTERRUPT 



SEO 0029 



(?) 005540 

(1) 005542 

686 005550 

687 005556 

688 005562 

689 005564 
690 

691 005572 
692 

693 005576 

694 005602 

695 005604 

696 005610 

697 005614 

698 005622 

699 005626 

700 005634 

701 005642 

702 005646 

703 005652 

704 005654 

705 005660 

706 005666 

707 005674 

708 005702 

709 005710 

710 005712 

71 1 005720 
m 005722 

713 005724 

714 005732 

715 005734 

716 005736 

717 005744 

718 005750 

719 005754 

720 005760 

721 005762 
72? 005766 
72- 005770 

724 005772 

725 005774 

726 005776 

727 006000 

728 006002 

729 006004 
730 

731 
732 
733 
734 
(3) 
(3) 

(2) 006010 
(1) 006012 
735 006020 



000004 
012737 
013737 
004737 
104407 
012737 

012700 

022700 
001455 
005037 
005077 
012777 
012037 
013777 
012737 
004737 
005737 
001424 
005037 
042737 
013737 
163737 
023727 
003732 
013737 
104001 
000725 
017737 
104027 
000720 
042777 
005037 
005077 
004737 
104407 
000137 
047777 
040700 
046003 
040200 
045065 
040100 
000000 
004737 



000004 
012737 
004737 



000012 
024106 
016106 

000005 

005766 

006002 

024212 
016246 
000050 
001124 
001124 
000005 
015726 
024212 

024212 
040000 
001124 
001126 
024214 



016132 



040000 
024226 
016106 
016106 

006004 



016324 



001172 
177776 



024226 



TST6: 
TIHINT: 



1$: 
2$: 



016240 

016234 
016030 



001124 
024214 
024214 
000001 



024120 001122 



001122 
016124 



5S: 
6$: 

TIMTA1 
TIMEN1 ; 



SCOPE 

NOV 

MOV 

JSR 

CKSUR 

MOV 

MOV 

CMP 
BEQ 
CLR 
CLR 
MOV 
MOV 
MOV 
MOV 
JSR 
TST 
BEQ 
CLR 
BIC 
MOV 
SUB 
CMP 
8LE 
MOV 
ERROR* 
BR 
MOV 
ERROR+ 
BR 
BIC 
CLR 
CLR 
JSR 
CKSUR 
JMP 
W7777 
40700 
46003 
40200 
45065 
40100 
00000 
JSR 



1 



27 



*10.,$TIMES ;;D0 10. 


ITERATIONS 


DPRI. 


PSW 


:;GET PRIORITY 


PC. 


CNTLC 


;;IS IT CONTROL C? 


*5. 


INTREG 


•;JUST FLAG FOR TIMINTERVAL 






-.INTERRUPT 


fTIflTAl .RD 


; .-POINTER TO THE TABLE 


/TTIMENKRO 


;;IS IT END OF TABLE 


6S 




;;EXIT 


FLAG. 2 




;; CLEAR FLAG 


acsR 




;; CLEAR CSR 


*81T5*BIT3.aCSR 


;; INTERRUPT ENABLE? 






;; VALUE TO BE INTERRUPTED AT 


GOOD, 


aRG4 


;;IN REG4 


*5, 


TIMES 


;;UAIT FOR APPRO 5 SEC 


PC. 


INTRTN 


;;WAIT FOR INTERRUPT 


fU6.2 






5$ 




; .-BRANCH IF NOT 


FLAG. 2 




.-.-CLEAR INTERRUPT FLAG 


#40000. 


GOOD 


;; CLEAR TIME INTERVAL ENABLE BIT 


GOOD. 


G00D1 


;;KEEP GOOD TO PRINT ERROR MSG 


BAD. 


G00D1 


;.-TIME LEFT IN RG4 


G00D1. 


#1 


;;IS DIFF GREATER THAN ONE? 


IS 




;;N0: GET NEXT VALUE 


ACSR. 


BADA 


;;READ STATUS OF CSR 


1$ 




;;GET NEXT VALUE 


acsR. 


BADA 


;;GET STATUS OF CSR 






;;TIM£ INTERVAL INTERRUPT DIDN'T 


1$ 




;;GET NEXT VALUE 


#40000. 


aRG4 


.-.-CLEAR INTRPT FLAG 


INTREG 




.-.-CLEAR THE FLAG 


acsR 




;; CLEAR CSR 


PC. 


CNTLC 




TIMENl +2 


;;EXIT 



PC. 



GETRDY 



.-.•INITIALIZE READY BIT 



.-•TEST 7 



TEST HOLD BIT SET/RESET IN TIME 



•*******'«***************•********•*********«***********•*••***** 



000012 
016106 



001172 



TST7: 



SCOPE 

MOV 

JSR 



#10..$TIMES 
PC, CNTLC 



;;D0 10. ITERATIONS 



.PiAlH. «ACY11 30A(1052) 13-MAR-80 07:«0 
C7KULA.P11 13-«AR-80 07:39 17 



E 3 

PAGE 1-22 

TEST HOLD BIT SET/RESET IN TIME 



SEO 0030 



736 006024 

737 006026 

738 006034 

739 006040 

740 006046 

741 006050 

742 006056 
745 006060 

744 006066 

745 006072 

746 006076 

747 006104 

748 006106 

749 006114 

750 006116 

751 006122 
752 

753 
754 
755 
756 
757 
758 
759 
760 
(3) 
(3) 

(2) 006124 

(1) 006126 

761 006134 

762 006140 

763 006144 

764 006150 

765 006152 

766 006156 

767 006160 
768 

769 
/70 
771 
772 
771 
(3) 
(3) 

(2) 006160 
(1) 006162 
77i, 

77% 006170 

776 006174 

777 006202 

778 006210 

779 006214 

780 006222 

781 006224 

782 006230 

783 006232 



104407 
012777 
004737 
032777 
001404 
017737 
1C4032 
012777 
005077 
004737 
032777 
001404 
017737 
104032 
004737 
104407 



000004 
012737 
004737 
017701 
027701 
001775 
027701 
001772 



000004 
012737 

005077 
012777 
012777 
017704 
032777 
001414 
027704 
001771 
032777 



000001 
016226 
000001 

016006 

000001 
015770 
016226 
000001 



016026 
016014 
001122 
015774 



1$: 



015756 
015750 001122 
016106 



2$: 



CKSUR 

WV 

JSR 

BIT 

BEO 

MOV 

ERRORS 

nov 

CLR 
JSR 
BIT 
BEO 
MOV 
ERRORS 
JSR 
CKSWR 



32 



#8IT0, 
PC, 

*BITO. 
IS 

acsR, 



«8IT0, 

acsR 

PC, 

«8IT0, 
2$ 

acsR, 



32 



PC, 



acsR 

UAIT1 

acsR 

6ADA 

acsR 

WAIT1 

acsR 

BAOA 
CNTLC 



.-.SET HOLD BIT IN CSR 

;;WAIT FOR HOLD BIT TO RESET 

.-.-IS HOLD BIT RESET? 

;;YES:8R 

.'.STATUS Of CSR 

;;HOLD BIT FAIL TO RESET 

;;SET HaD BIT AGAIN 

.-.FORCE TO RESET 

;;UAIT 

;;IS HOLD BIT RESET? 
••STATUS OF CSR 

;;HOLD BIT FAIL TO RESET UHEN FORCED TO RESET. 



READ SECOND HERE 

• ***************************************•*•**«*********<********* 

•TEST 10 TEST SECOND VALUE IS CHANGING 

• *************************************************************** 

tsnO: SCOPE 

;;D0 1 ITERATION 

;;StT NEW YEAR,MONTH,DAY,HOUft,MIN 
;;READ SECOND 

;;DOES SECOND VALUE CHANGES? 
;;N0:8R 
:; CHECK AGAIN 
;;60 BACK 



000001 001172 




nov 


#1,$TIMES 


016404 




JSR 


PC, GET2 


015724 




MOV 


aRG4, R1 


015720 


1$: 


CMP 


aRG4, R1 






BEO 


1$ 


015712 




CMP 


aRG4, R1 






6EQ 


1$ 




2$: 








.•THIS 


ROUTINE 


CHECK HOLD BIT 



• ****************** ******** ********* ******** ***•••** ************ 

West ii test hold bit in csr holds time while set 



000012 001172 



TST11 



SCOPE 
MOV 



015666 
047777 
000001 
015654 
000001 



015666 
015652 



015640 
000001 015622 



015640 



HOLTST: CLR 
MOV 
MOV 
MOV 
BIT 
BEO 
CMP 
BEO 
BIT 



IS: 



#10.,STIMES 

acsR 

iHJ777. aRG4 

461 TO, aCSR 

aRG4. R4 

481 TO, aCSR 
2S 

aRG4, R4 
IS 

4BIT0, aCSR 



;;D0 10. ITERATIONS 



;; CLEAR CSR 

;;SET TIME INTERVAL 

;;SET KXD BIT 

;;READ SECOND VALUE 

;;IS HOLD BIT SET? 

;;8RANCH If HOLD BIT IS RESET 

;;DID SECOND VALUE CHANGtD? 

;;NO:aR 

;;IS HOLD BIT RESET? 



F 3 

fV^lH. MACvn 30A(1052) 13-mR-80 07:40 PAGE 1-23 

ZpcwlA.PII •'3-MAR-80 07:39 Til TEST HOLD BIT IN CSR HOLDS TIME WHILE SET SCO 0051 



784 


006240 


001405 








BEQ 


2$ 




;YES:8R 


785 


006242 


004737 


016522 






JSR 


PC, 


GETTIM !■ 


.-READ ALL PRESENT VALUE 


786 


006246 


104031 








ERROR+31 




: ERROR :H0LD BIT FAIL TO RESET 


787 


006250 


000137 


006774 






JMP 


10$ 




.•EXIT 


786 


006254 


004737 


016522 




2$: 


JSft 


PC. 


GETTIM ': 


.-READ CURRENT VALUE OF SECOND 


789 


006260 


062704 


000002 






ADD 


*2. 


R4 


.EXPECTED VALUE OF SECOND AFTER 


790 


















.-HOLD BIT RESET 


791 


006264 


010437 


001124 






nov 


R4, 


GOOD : 


.•EXPECTED VALUE IN GOOD 


792 


006270 


013737 


016550 


001126 




MOV 


SECOND. 


BAD 


.ACTUAL VALUE 


79^ 


006276 


023727 


001124 


000074 




CMP 


GOOD, 


#74 ; 


.■EXPECTED VALLC MORE THAN OR EQUALS 60. 


<]) 


006304 


002403 








BLT 


64$ 




;N0:8R 


(^) 


006306 


162737 


000074 


001124 




SUB 


#74. 


GOOD ; 


.•EXPECTED SECOND CAN'T BE MORE THAN 59 


(1) 


006314 


023737 


001124 


001126 


64$: 


C«P 


GOOD. 


BAD 


;EXPECTED=ACTUAL? 


794 


006322 


001403 








BEO 


3$ 




.•YES THEY ARE EQUAL .BRANCH 


795 


006324 


104001 








ERROR* 1 






;READ VALUE OF SECOND NOT MATCH 


796 


















.•WITH EXPECTED VALUE. 


7 ^ 


006326 


000137 


006774 






JflP 


10$ 




;JJ1P 


798 


006332 


012777 


000011 


015522 


3$: 


MOV 


*8JT0*BIT3,aCSR 


;SET HOLD BIT AGAIN 


799 


006340 


017700 


015524 






MOV 


aRG4. 


RO 


.•READ TIME INTERVAL VALUE 


800 


006344 


027700 


015520 




4$: 


CMP 


»^G4. 


RO 


;ARE THEY EQUAL? 


801 


006350 


001413 








BEO 


5$ 




;YES:8R 


802 


006352 


010037 


001124 






MOV 


RO. 


GOOD ; 


.•EXPECTED VALUE 


803 


006356 


01 7737 


015506 


001126 




MOV 


aRG4. 


BAD 


.•READ VALUE OF TIME INIERVAL 


804 


006364 


017737 


015472 


001122 




MOV 


acsR, 


BADA 


.•READ STATUS OF CSR 


805 


006372 


104001 








ERROR+1 






.'EXPECTED VALUE NOT MATCH WITH ACTUAL VALUE 


806 


006374 


000137 


006774 






JMP 


10$ 




;EXIT 


807 


006400 


032777 


040000 


015454 


5$: 


BIT 


*BIT14. 


aCSR ; 


;IS BIT14 SET IN CSR 


808 


006406 


001756 








BEO 


4$ 




;N0:8R 


809 


006410 


005077 


015446 




6$: 


CLR 


acsR 




;CLR CSR 


810 


006414 


012777 


000001 


015440 




MOV 


*eiTO, 


acsR ) 


.-SET HOLD BIT 


811 


006422 


013737 


001126 


001124 
001126 




MOV 


BAD. 


GOOD 


;GET PREVIOUS SECOND VALUE 


812 


006430 


017737 


01 5434 




MOV 


aRG4. 


BAD 


.-READ CURRENT SECOND 


813 


006436 


023727 


001124 


000074 




CMP 


GOOD. 


#74 


.EXPECTED VALUE MORE THAN OR EQUALS 60.? 


(1) 


006444 


002403 








BLT 


65$ 




;NO:aR 


(1) 


006446 


162737 


000074 


001124 




SUB 


#74. 


GOOD ; 


.•EXPECTED SECOND CAN'T BE MORE THAN 59 


(1) 


006454 


023737 


001124 


001126 


65$: 


CMP 


GOOD. 


BAD 


;EXPECTED=ACTUAL? 


814 


006462 


001406 








BEO 


7$ 




;YES:8R 


815 


006464 


017737 


015372 


001122 




MOV 


SCSR. 


BADA : 


.•READ CURRENT STATUS OF CSR 


816 


006472 


104001 








ERROR^l 






.•PREVIOUS SECOND NOT MATCH WITH 


817 


















.•CURRENT SECOND WHILE HOLD BIT 


818 


















.-WAS SET 


819 


006474 


000137 


006774 






JMP 


10$ 




.-EXIT 


820 


006500 


005077 


015356 




7$: 


CLR 


acsR 




.-FORCE HOLD BIT TO RESET 


821 


006504 


004737 


016152 






JSR 


PC 


DELAV ; 


.-WAIT FOR 10MSEC 


822 


006510 


013737 


001126 


001124 




MOV 


BAD. 


GOOD 


.READ PREVIOUS SEC 


823 


006516 


017737 


015346 


001126 




MOV 


aRG4. 


BAD 


.CURRENT SECOND 


824 


006524 


023727 


001124 


000074 




CMP 


GOOD. 


#74 


.'EXPECTED VALUE MORE THAN OR EQUALS 60.? 


(1) 


006532 


002403 








BLT 


66$ 




;NO:BR 


(1) 


006534 


162737 


000074 


001124 




SUB 


#74. 


GOOD : 


.'EXPECTED SECOND CAN'T BE MORE THAN 59 


(1) 


006542 


023737 


001124 


001126 


66$: 


CMP 


GOOD. 


BAD 


;EXPeCTED=ACTUAL? 


825 


006550 


001406 








BEO 


8$ 




;8R IF EQUAL 


826 


006552 


017737 


015304 


001122 




MOV 


acsR. 


BADA ; 


.-READ CURRENT STATUS OF CSR 


827 


006560 


104001 








ERRC«*1 




.'ACTUAL VALUE NOT MATCH WITH EXPECTED. 


828 


006562 


000137 


006774 






JMP 


10$ 




.EXIT 


829 


006566 


012777 


000001 


015266 


8$: 


MOV 


#81 TO. 


acsR : 


.-SET HOLD BIT NOW 


S30 


006574 


012737 


043720 


016224 




MOV 


#43726. 


TCNT 


.'TIME INTERVAL VALUE fOR 1 SfCOND 



-MAIN. MACVn 3OA(1052) l5-«R-80 07:40 
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TEST HOLD 



G 3 

BIT IN CSR HOLDS TI«E WHILE SET 



SFO 0032 



831 006602 

852 006606 

853 006612 
SIA 006616 
855 006624 
856 

837 006630 

358 006636 
006644 

(1) 006646 

(1) 006654 

839 006662 

840 006664 

841 006672 

842 006674 

843 006700 

844 006704 

845 006712 

846 006716 

847 006724 

848 006732 

849 006736 
( 1 ) 006744 
( 1 ) 006746 

(1) 006754 

850 006762 

851 006764 

852 006772 

853 006774 
854 

855 
856 
857 
(5) 
(5) 

(2) 007000 
( 1 ) 007002 

858 007010 

859 007014 

860 007016 

861 007022 

862 007050 

863 007036 
(1) 007042 

864 007046 

865 007050 

866 007056 

867 007060 

868 007064 

869 007066 

870 007074 

871 007102 
(1) 007106 

872 007112 
875 007114 
874 007122 



004737 
005077 
004737 
013737 
005237 

017737 
023727 
002403 
162737 
023737 
001406 
017737 
104001 
000137 
005077 
012737 
004737 
013737 
017737 
005237 
023727 
002403 
162737 
023737 
001404 
017737 
104001 
004737 



000004 
012737 
004737 
104407 
005037 
012777 
012777 
004737 
005737 
001407 
017737 
104002 
004737 
000756 
012777 
013777 
004737 
005737 
001407 
017737 
104002 



016204 






JSR 


PC, 


WAIT2 


015250 






CLR 


acsR 




016152 






JSR 


PC, 


DELAY 


001126 


001124 




nov 


BAD, 


GOOD 


001124 






INC 


GOOD 




015254 


001126 




MOV 


dR64, 


BAD 


001124 


000074 




CNP 


GOOD, 


#74 








BLT 


67$ 




000074 


001124 




SUB 


#74, 


GOOD 


001124 


001126 


67$: 


C«P 


GOOD, 


BAD 








BEO 


9$ 




015172 


001122 




nov 


acsR, 


6ADA 








ERR0R*1 




006774 






JMP 


10$ 




015156 




9$: 


CLR 


acsR 




043720 


016224 




«0V 


#43720. 


TCNT 


016204 






JSR 


PC 


UAIT2 


001126 


001124 




MOV 


BAD, 


GOOD 


015140 


001 ■'26 




nov 


aRG4, 


BAD 


001124 






INC 


GOOD 




001124 


000074 




CflP 


GOOD, 


#74 








BLT 


68$ 




000074 


001124 




SUB 


#74, 


GOOD 


001124 


001126 


68$: 


CMP 


GOOD. 


BAD 








BEQ 


10$ 




015072 


001122 




MOV 


acsR, 


BADA 








ERROR^I 






016106 




10$: 


JSR 


PC, 


CNTLC 



WAIT FOR A SECOND 

fORCE HOLD BIT TO CLEAR 

WAIT FOR lOMSEC 

READ PREVIOUS SECCHS) 

CURRENT VALUE SHOULD BE ONE MORE 

THAN PREVIOUS VALUE 

READ SECOND 

EXPECTED VALUE MORE THAN OR EQUALS 60. *> 
NOrBR 

EXPECTED SECOND CAN'T BE MORE THAN 59 

EXPECTED=ACTUAL? 

YES:BR 

STATUS Of CSR 
EXIT 

CLEAR BIT14 IN CSR 

TIME INTERVAL VALUE FOR A SEC 

WAIT FOR A SECOND 

PREVIOUS SECOND 

CURRENT SECOND 

EXPECTED VALUE AFTER ONE SECOND 
EXPECTED VALUE MORE THAN OR EQUALS 60.? 
NOrBR 

EXPECTED SECOND CAN'T BE MORE THAN 59 
EXPEC TED-ACTUAL? 
VESrBR 
READ CSR 



•SBTTL CHECK DISPLAY ON THE CLOCK 
■ *************************************************************** 

West 12 test digits in display works o.k. 

; ******************************************************** ******* 

TST12: SCOPE 



000001 


001172 




MOV 


#1.$TIMES ;;D0 1 ITERATION 


016106 




DISP: 


JSR 
CKSWR 


PC, 


CNTLC 




024152 






CLR 


DHOUR 




INITIALIZE H0UR*MIN 


100000 


015032 


DISPLY: 


MOV 


#8IT15, aCSR 


;;SET TIME 


000401 


015026 




MOV 


#401, 


aRGO 


;;SET MONTH+DAY 


017000 






JSR 




RDYBIT 


.-CHECK FOR READY BIT SET 


024210 






TST 


FLAG. 1 




;IS FLAG SET? 


015006 






BEQ 


1$ 




; .-BRANCH IF READY BIT IS SET 


001122 




MOV 


acsR, 


BADA 


STATUS OF CSR 


016324 






ERR0R*2 




; .-READY BIT DIDN'T SET 






JSR 


PC, 


GETRDY 


;;6£T READY BIT SET 








BR 


DISPLY 




100000 


014766 


1$: 


MOV 


#8IT15, 


acsR 


;;SET HOUR ♦ MIN 


024152 


014764 




MOV 


DHOUR. 


aRG2 


;,-SET HOUR+MIN 


017000 






JSR 


PC, 


RDYBIT 


; CHECK FOR READY BIT SET 


024210 






TST 


FLAG.1 




;IS FLAG SET? 


014^42 






BEQ 


2$ 




-jBRANCH IF READY BIT SEi 


001122 




MOV 

ERROR+2 


acsR, 


BADA 


.READ STATUS OF CSR 
■.READY BIT NOT SET 



•MAIN. HACY11 30A(1052) 15-«AR-80 



''ZitWl A.PII 


l5-«AR-80 07:39 




875 


007124 


004737 


016324 




876 


007130 


000727 






877 


007132 


012737 


000001 


016104 


878 


007140 


004737 


016032 




879 










880 










881 


007144 


005237 


024152 




882 


007150 


122737 


000073 


024152 


883 


007156 


002321 






884 


007160 


062737 


000377 


024152 


885 


007166 


022737 


013473 


024152 


886 


0071 74 


002312 






887 


007176 


004737 


016106 




888 


007202 


000005 






889 


007204 


000240 






890 


007206 


000240 






891 


007210 


000240 






892 


007212 


000137 


007216 




893 










894 










895 










896 










897 










898 










899 










900 


007216 








901 










902 










(3) 










(3) 










(2) 


007216 


000004 






(1) 


007220 


012737 


000012 


001172 


903 


007226 


004737 


016106 




904 


007232 


013737 


024106 


1 7777() 


905 


007240 


104407 






906 


007242 


012700 


007524 




907 


007246 


022700 


007556 




908 


007252 


003002 






909 


0072S4 


000137 


007560 




910 


007260 


005077 


014576 




911 


007264 


012037 


001124 




912 


007270 


0^^777 


040000 


01 4 564 


913 










914 


007276 


013777 


001124 


014560 


915 


007304 


004737 


017000 




(1) 


007310 


005737 


024210 




916 


007314 


001443 




917 


007316 


012737 


077777 


024052 


(1 ) 


007324 


004737 


017206 


(1) 


007330 


032777 


100000 


014524 


(1) 


007336 


001772 






918 


007340 


005737 


024210 




919 


007344 


001405 






920 


007346 


017737 


01 .510 


001122 


921 


007354 


104011 






922 


007356 


000733 







07:40 
T12 



2S: 



PAGE 1-25 

TEST DIGITS 



H 3 

IN DISPLAY WORKS O.K. 



JSR 
BR 

nov 

JSR 



INC 

C«P8 

BGE 

ADD 

CIV> 

BGE 

JSR 

RESET 

NOP 

NOP 

NOP 

JMP 



PC, 
DISP 

»^, 

PC, 



6ETRDV 

C0NT3 
WAIT 



DHOUR 

*73,DH0UR 

DISPLr 

*377, DHOUR 
*13473, DfOUR 
DISPLr 

PC, CNTLC 



TA8DRV 



GET READY BIT SET 

WAIT fOR SECOND 
WAIT FOR SOME TIME TO 
SEE DIGITS IN DISPLY 
CHANGES 

INCREMENT MINUTES 
IS MINUTES=59 
BRANCH IF NOT 
INCREMENT DHOUR 
IS IT 23HOUR-59MIN 
BRANCH 



THIS IS TABLE DRIVEN ROUTINE, IT TESTS INVALID VALUE OF MONTH+DAY 



TA8DRV: 

• *********^* 

•TEST 13 

• *********** 

tST13: SCOPE 



**************************************************** 

TEST CHECKS FOR VALID/INVALID VALUES OF YEAR 
**************************************************** 



IS: 



2$: 



22S: 



MOV 
JSR 
MOV 
CKSWR 
MOV 
CMP 
BGT 
JMP 
CLR 
MOV 
MOV 

MOV 
JSR 
TST 
BEO 
MOV 
JSR 
BIT 
6EQ 
TST 
BEO 
MOV 
ERROR 
BR 



#10.,STJMES 
PC, CNTLC 
DPR I , PSW 

*TA8LE1,R0 
*TA8£N1 ,R0 
22S 

TA8ENU2 
aCSR 

(RO)*, GOOD 
«BIT14,aCSR 

GOOD, aRGO 
PC, RDYBIT 
FLAG.l 
3$ 

#77777. COUNTR 

PC, DMT 

*BIT15,8CSR 

.-12 

FLAG.l 

331 

aCSR, BADA 
2S 



;D0 10. ITERATIONS 

;IS IT CONTROL C? 



SOFTWARE SWITCH SELECTED? 
POINTER TO THE TABLET 
IS IT END OF TABLET 
BRANCH IF NOT 
EXIT ON END OF TABLET 
CLEAR CSR 

YEAR VALUE IN GOOD 

SET (SY) BIT IN CSR TO WRITE A 

A YEAR VALUE 

YEAR IN DEVICE REG 
CHECK FOR READY BIT SET 
IS FLAG SET? 

BRANCH IF READY BIT IS SET 

DELAY LOOP SETUP 

DEAD MAN TIMER ROUTINE 

IS DE BIT SET 

TRY AGAIN 

IS ERROR OCCURED? 

BRANCH IF NO ERROR 

READ CURRENT STATUS OF CSR 

(DE) BIT FAIL TO SET IN CSR 

TRY »€XT VALUE 
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SEO 0034 



9?3 007360 

924 007366 

925 007374 

926 007402 

927 007410 

928 007412 

929 007420 

930 007422 
931 

932 007424 
H) 007424 
(1) 007432 
(1) 007436 

(1) 007444 

933 007446 

934 007452 

935 007454 

936 007462 

937 007464 

938 007466 

939 007474 

940 007502 

941 007510 

942 007512 

943 007520 

944 007522 
945 

946 007524 

947 007526 

948 007530 
9;9 007532 

950 007534 

951 007536 

952 007540 

953 007542 

954 007544 

955 007546 

956 007550 

957 007552 

958 007554 

959 007556 
960 

961 
962 
963 
(3) 
(3) 

(2) 007560 
(1) 007562 

964 007570 

965 007570 

966 007572 

967 007576 

968 007600 
(1) 007604 

969 007610 



012777 
017737 
01273/' 
023737 
001716 
017737 
104001 
000711 



012737 
004737 
032777 
001772 
005737 
001405 
017737 
104011 
000670 
012777 
017737 
023737 
001656 
017737 
104001 
000651 

01 7073 
016455 
016454 
017076 
015474 
017000 
017477 
017400 
016430 
017074 
017077 
020000 
017075 
000000 



000004 
014472 
000000 
001126 



077777 
01 7206 
100000 

024210 

014402 



000004 
014364 
001124 



000004 

012737 000010 
000240 

004737 016106 
104407 

004737 017000 
005737 024210 
001406 



014474 
001126 
001124 
001124 



33$: 



014444 001122 



024052 
014416 

001122 



0U366 
001126 
001126 



3$: 



4$: 



014344 001122 



TABLE 1 



TABENI 



HOV «8IT2, aCSR 

nOV aRGO, BAD 

nOV #0, GOOD 

CnP BAD, GOOD 

SEO 2S 

nov acsR, bada 

ERROR+1 

BR 2$ 



MOV 
JSR 
BIT 
BEQ 
TST 
BEQ 
MOV 

ERROR* 1 

BR 

MOV 

MOV 

CMP 

BEO 

MOV 

ERROR+1 
BR 

17073 
16455 
16454 
17076 
15474 
17000 
17477 
17400 
16430 
17074 
17077 
20000 
17075 
00000 



BADA 



#77777. COUNTR 
PC. DMT 
*81T15,aCSR 
.-12 
FLAG.1 
4$ 

acsR, 

1 

2$ 

#81 T2. 
aRGO. 
GOOD. 
2S 

acsR. 

2S 



acsR 

BAD 
BAD 

BADA 



;;READ YEAR VALUE 

: .-ACTUAL READ YEAR VALUE 

;; EXPECTED VALUE 

; .-BECAUSE INVALID YEAR VALUE 

;;G0 GET ANOTHER VALUE 

.-.READ CSR 

.-.YEAR VALUE DIDN'T MATCH WITH EXPECTED 
.-.•TRY NEXT VALUE 



DELAY LOOP SETLP 
;.-DEAD MAN TIf«R ROUTINE 
;;IS DE BIT SET 
:;TRY AGAIN 
;;IS ERROR ? 
; .-BRANCH IF NOT 
r;GET CSR STATUS 
;;(0E)8IT FAIL TO SET 
;;GET NEXT VALUE 
;;READ YEAR 
; .-ACTUAL READ VALUE 
;;APE THEY EQUAL? 
;;G0 GET MORE 
;;READ STATUS OF CSR 

;;READ YEAR VALUE NOT MATCH WITH EXPECTED 
r;GO CHECK FOR END OF T/JBLE 



001172 



•TEST 14 TEST VALID ft INVALID VALUES OF MONTH+DAY 

********** **************************************************** 

TST14: SCOPE 

MOV #10.STIMES ;;D0 10 ITERATIONS 

TA8DR2: 

NOP 

JSR PC. CNTLC ;;IS IT CONTROL C? 

CKSUR 

JSR PC. ROVBIT .-CHECK FOR READY BIT SET 

TST FLAG.1 ;IS FLAG SET? 

BEO IS .-.-BRANCH IF READY BIT SET 
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970 


007612 


017737 


014244 


001122 

V V 1 ICC 


97-' 


007620 


104002 






972 


007622 


004737 


016324 




973 


007626 


012700 


010042 




974 


007632 


022700 


010146 




975 


007636 


003002 






976 


007640 


000137 


010150 




977 


007644 


012037 


001124 




978 


007650 


005077 


014206 




979 


007654 


012777 


100000 


014200 


980 


007662 


013777 


001124 


014174 


981 


007670 


012737 


077777 


024052 


982 


007676 


004737 


01 7206 




983 


007702 


022777 


100200 


014152 


984 


007710 


001372 






985 


007712 


017737 


014152 


024 1 44 


986 


007720 


012737 


000001 


016104 


987 


007726 


004737 


016032 




988 


007732 


027717 


014132 


024144 

VC ~ ' ~~ 


989 


007740 


001401 






990 


007742 


104012 






991 


007744 


005737 


024210 




992 


007750 


001416 






993 


007752 


017737 


014106 


001126 


994 


007760 


012037 


001124 




995 


007764 


023737 


001124 


001126 


9% 


007772 


001717 






997 


007774 


017737 


014062 


001122 


998 


010002 


104001 







T14 



1$: 
2$: 

22$: 



3$: 



TEST VALID ft INVALID VALUES 0 



4S: 



MOV acsR 

ERR0R*2 
JSR PC. 



BADA 



nov 

CMP 

8GT 
JMP 
MOV 
CLR 
MOV 
MOV 
MOV 
JSR 
CMP 
BNE 

MOV aRG4. 
MOV #1, 
JSR PC. 
CMP aRG4. 
BEO 4S 
ERROR+12 
TST FLAG.l 



GETRDY 
#TABLE2.R0 
#TABEN2,R0 
22$ 

TA8£N2*2 
(RO)^. GOOD 
aCSR 

#BITl5.aCSR 
GOOD. aRGO 
M77777, COUNTR 
PC. DMT 
#8IT15*eiT7.aCSR 
3$ 



SEC 
C0NT3 
UAIT 
SEC 



BEQ 
MOV 
MOV 
CMP 
BEQ 
MOV 

ERROR^I 



5$ 

aRGO. BAD 

(RO)*. GOOD 



GOOD. 
2$ 

acsR, 



BAD 
BADA 



MONTH+DAV SEO 0035 

.CURRENT CSR 

.-READY BIT FAIL TO SET 

.-GET READY BIT SET 

.-POINTER TO THE TA8LE2 

:IS END Of TABEN2 

.-BRANCH IF NOT 

.EXIT 

;MONTH*DAY VALUE FROM TABLE2 
.CLEAR CSR 

.-SET BIT #15 IN CSR TO WRITE MONTH*DAY 

.•MONTH^DAY IN DEV REGISTER 
;; INITIALIZE COUNTER 
;.-UAIT LOOP 

;;IS RDY & ERROR FLAG SET 

; .-BRANCH BACK IF NOT 

;;READ SECOND 

:;UAIT FOR 1 SECOND 

;.-UAIT FOR COUPLE OF SECOND 

:;READ SEC AGAIN TO SEE ANY CHANGE 

r .-BRANCH IF CLOCK IS STOPPED 

;.- CLOCK UAS NOT SUPPOSED TO BE RUNNING 

:;IS ERROR FLAG SET 

; .-BRANCH IF NO ERROR 

: .-ACTUAL VALUE READ 

; .-EXPECTED VALUE 

:;ARE THEY EQUAL? 

;;YES, GO GET MORE VALUE 

;;GET STATUS OF CSR 

:;READ MONTH+DAY NOT MATCH 
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1000 01000^ 000712 

1001 010006 017737 0U052 

1002 0100H 012037 001124 
1005 010020 025737 001124 

1004 010026 001701 

1005 010030 017737 014026 

1006 010036 104001 

1007 010040 000674 

1008 010042 006436 

1009 010044 000000 





T14 


TEST 


VALID 






8R 


2t 


001126 


5S: 


«0V 


iRGO 








(RO) 














BEO 


2S 


001122 




NOV 


acsR 






ERROR*! 








BR 


2S 




TA8LE2: 


6436 








0000 





K 3 

I»<VALID VALUES OF WONTH*DAr 



SEO 0056 



BAD 

GOOD 

BAD 

BADA 



;G0 GET NEXT VAcUE 

.•ACTUAL VALUE READ 

.•EXPECTED VALUE IN GOOD 

.-ARE THEY EQUAL 

.•BRANCH IF YES 

.GET STATUS OF CSR 

.-EXPCT MONTH+DAY NOT MATCH 
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1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
(1) 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 



P11 


1 J r W~OV Ml . yf 


T1A 

1 \H 










WCv 




nnnnno 

VAAAAA/ 




nnon 

WW 










01 00S4 


000400 








000^0? 
\rJ\r^\JC 






010060 


000^0? 






V 1 WUC 


0004^? 






0100M 


00043? 






010066 


001035 




1035 


010070 


001000 




1 vvv 


01 007? 


001440 

VV 1 M M V 




1 w 


010074 


001400 




1^00 
1 sw 


01 0076 


00?037 




?0^7 


010100 


00?000 

wc vw 




?000 


01010? 


00?440 






010104 


00?400 

vvC~V/V 




?400 


010106 


003037 






0101 10 


003000 




^000 


01 01 1 ? 


003440 

VV«/ T"* V 




3440 


0101 14 


003400 




^400 

JHW 


010116 


004040 

V^ V 




4040 


010120 


004000 




^000 


010122 


004437 




4437 


010124 


004400 




•♦■♦vv 


010126 


005040 




^ V*f V 


010130 


005000 




5000 


010132 


005437 




5437 


010134 


005400 




5400 


010136 


006040 




6040 


010140 


006000 




6000 


010142 


006024 




6024 


010144 


006024 




6024 


010146 


000000 


TABEN2: 


0000 



L 3 

VALID e INVALID VALUES OF nONTHOAY 



SEQ 0037 



010150 
010150 
010154 
010156 
010162 
010166 
010170 
010176 
010200 
010204 
010210 
010214 
010216 
010224 



THIS ROUTINE CHECKS VALID AND INVALID HOUR^IN. 

IF H0UR*f1IN ARE INVALID IT URITES ANOTHER VALUE OF HOUR+MIN UNTIL 

CORRECT VALUE OF HOUR+HINUTE IS WRITTEN. ONCE CORRECT VALUE IS 
WRITTEN YOU CAN'T WRITE ANOTHER VALUE OF HOUR+MIN WITHOUT WRITING 

VALID VALUE IN MONTH AND DAY REGISTER 



004737 
104407 
004737 
005737 
001406 
017737 
104002 
004737 
012700 
022700 
003023 
012777 
012777 



016106 

017000 
024210 

013666 001122 

016324 
010456 
010516 

100000 013636 
000000 013634 



TABDR3: 



11$: 
1$: 



JSR 

CKSWR 

JSR 

TST 

BEQ 

MOV 

ERROR+2 

JSR 

MOV 

CMP 

BGT 

MOV 

MOV 



PC. 

PC, 

FLAG.1 

11$ 

aCSR, 



CNTLC 
RDY8IT 



BADA 

6ETRDY 



PC, 

#TABLE3,R0 
#TABEN3,R0 
2$ 

«BIT15.aCSR 
«000000,aRG2 



010232 004737 017000 



JSR 



PC, 



RDYBIT 



CHECK FOR READY BIT SET 
IS FLAG SET? 

BRANCH IF RDYBIT SET 

GET STATUS OF CSR 

RDYBIT FAIL TO SET 

GET READY BIT SET 

POINTER TO THE TABLE 

IS IT END OF TABLE 

BRANCH IF NOT END OF TABLE 

SET H0UR4MIN 

LAST VALUE OF HOUR*MIN BEFORE 
EXIT 

CHECK FOR READY BIT SET 
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(1) 


010236 


005737 


024210 






TST 


FLAG.1 




1066 


010242 


001406 








BEQ 


12$ 




1067 


010244 


017737 


013612 


001122 




MOV 


SCSR. 


BADA 


1068 


010252 


104002 








ERROR+2 






1069 


010254 


004737 


016324 






JSR 


?C. 


GETRDY 


1070 


010260 


000137 


010520 




12$: 


J/1P 


TA8EN3+2 


1071 


010264 


012037 


001124 




2$: 


NOV 


(RO)*. 


GOOD 


1072 


010270 


005077 


013566 






CLR 


acsR 




1073 


010274 


012777 


100000 


013560 




MOV 


/l«IT15,aCSR 


107A 


010302 


013777 


001124 


013556 




MOV 


GOOD, 


aRG2 


1075 


010310 


012737 


Qi77777 


024052 




MOV 


11777^7. 


COUNTR 


1076 


010316 


004737 


017206 




22$: 


JSR 


PC. 


DMT 


1077 


010322 


0Z2777 


100200 


013532 




CMP 


*8IT15*BIT7.aCSR 


1078 


010330 


001372 








BNE 


22$ 




1079 


010332 


005737 


024210 






TST 


FLAG.l 




1080 


010336 


001416 








BEO 


3$ 




1081 


010340 


01 7737 


013522 


001126 




MOV 


aRG2, 


BAD 


1082 


010346 


012037 


001124 






MOV 


(RO)*, 


GOOD 


1083 


010352 


023737 


001124 


001126 




CMP 


GOOD. 


BAD 


1084 


010360 


001713 








BEQ 


1$ 




1085 


010362 


01 7737 


013474 


001122 




MOV 


acsR. 


BADA 


1086 


010370 


104001 








ERROR+1 




1087 


010372 


000706 








BR 


1$ 




1088 


010374 


012037 


001124 




3$: 


MOV 


(RO)*. 


GOOD 


1089 


010400 


01 7737 


01 3462 


001126 




MOV 


aRG2. 


BAD 


1090 


010406 


023737 


001 1 24 


001126 




CMP 


GOOD. 


BAD 


1091 


010414 


001016 








BNE 


4$ 




1092 


010416 


012777 


100000 


01 3436 




MOV 


«BIT15.aCSR 


1093 


010424 




002004 


013432 




MOV 


#2004. 


aRGO 


1094 


010432 




017000 






JSR 


PC. 


RDYBIT 


(1) 


010436 


005737 


024210 






TST 


FLAG.l 




1095 


010442 


001662 








BEQ 


1$ 




1096 


010444 


01 7737 


013412 


001122 




MOV 


acsR, 


BADA 


1097 


010452 


104001 






4$: 


ERROR+1 




1098 


010454 


000655 








BR 


1$ 




1099 


010456 


014073 






TABLE3: 


14073 






1100 


010460 


000073 








00073 






1101 


















1102 


010462 


014400 








14400 






1103 


010464 


000000 








00000 






1104 


















1105 


010466 


000074 








00074 






1 106 


010470 


000000 








00000 






1107 


















1108 


010472 


002077 








02077 






1109 


010474 


002000 








02000 






1110 


















1111 


010476 


006024 








06024 






1112 
1113 


010500 


006024 








06024 






1114 


010502 


006436 








06436 






1115 


010504 


006436 








06436 






1116 


















1117 


010506 


000020 








00020 






1118 


010510 


000020 








00020 






1119 



















IF MOr^TH+DAY SEO 0058 

IS FLAG SET? 
BRANCH IF RDYBIT IS SET 
GET STATUS OF CSR 
READY BIT NOT SET 
GET READY BIT SET 
Jl^ TO END THIS ROUTINE 
HOUR+MIN IN GOOD 
CLEAR CSR 

SET BIT IN CSR TO WRITE HOUR^MIN 
HOUR-»MIN IN RG2 
SETUP COUNTER 
GO TO DEAD NAN TIMER 
IS (DE) AND (RDY) BIT SET? 
BRANCH BACK IF NOT 
IS ERROR FLAG SET 
BRANCH IF NO ERROR 
READ HOUR^IN 
EXPECTED VALUE IN GOOD 
ARE THEY EQUAL? 
GET NEXT VALUE 
GET STATUS OF CSR 
READ HOUR+MIN NOT MATCH 
TRY NEXT 

EXPECTED VALUE IN GOOD 
ACTUAL VALUE READ IN BAD 
ARE THEY EQUAL? 
BRANCH IF NO 
TO URITE N0NTH4-DAY 
MONTHS-DAY VALUE IN R60 
CHECK FOR READY BIT SET 
IS FLAG SET? 
;GET NEXT VALUE 
;GET STATUS OF CSR 
.•EXPECTED NOT NATCH WITH ACTUAL 
;60 CHECK FOR END OF TABLE 
;H0UR=24.MIN=59 
.EXPECTED H0UR=00.MIN=59 

;H0UR=:25,MIN=0 
.'EXPECTED HOUR^.MIN-0 

:HOUR^.MIN=60 
.•EXPECTED H0UR=0,MIN=0 

;H0UR^,MJN=63 
.•EXPECTED H0URs4.MIN::0 

;H0UR=12.MIN=20 
.•EXPECTED HaURs12.NIN=20 

;H0UR=13.MIN=30 
.•EXPECTED HOUR+NIN (13.30) 

;H0UR=0,MIN=16 
.-EXPECTED H0UR=0.MINs16 
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07:40 
T14 



PAGE 3-2 
TEST 



N 3 

VALID & IWALID VALUES OF MONTM+DAY 



S£0 0039 



1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
(V 
(3) 
(2) 
(1) 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
(1) 
1149 
1150 
1151 
1152 
1153 
1154 
(1) 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
(1) 
1164 
1165 
1166 
1167 
1168 



010512 
010514 
010516 



006007 
006007 
000000 



6007 
6007 
TA8EN3: 00000 



;;H0UR=12.MIN=7 

; .-EXPECTED H0UR=12.«IN=7 





(VVVVV. 






T^TIS- 

1 d 1 1 ^ • 


SCOPE 








01P7^7 




001 17? 

KAJ life 




MOV 


#10..$TIMES 






v ID 1 vD 




WWB/UPI* 


JSR 


PC, 


CNTLC 




10^^07 








CKSUR 






00S077 


01 '?3?0 






CLR 


acsR 






V 1 C ' ' ' 


100000 


01 "^31? 




MOV 


#8IT15. 


SCSR 


ninssn 

V 1 \JJJ\J 


01 ?777 


OOSOOS 


013310 




MOV 


#5005. 


aRG2 




004737 


017000 






JSR 


PC. 


RDY8IT 




017737 


01 330? 

V i -J JVC 


0?^1^4 




MOV 


aRG4. 


SEC 






00000? 


OI^IOA 




MOV 


»2. 


C0NT3 


V 1 Vj f O 


00^7^7 

VVM f Jf 


01^»03? 






JSR 


PC 


WAIT 


01 fW)? 


\JC * f ■Jf 


01 3?6? 






CMP 


aRG4. 


SEC 


oin<=>io 


001001 








BNE 


IS 




010A1? 


10^01? 








ERROR+12 




010^1^ 


OOS 7^7 


0?4?10 




It' 


TST 


FLAG.1 




010AP0 


00100^ 








BNE 


11$ 




OlO^fiP? 


01 77^7 




001 1 ?? 

VV 1 1 bC 




MOV 


acsR, 


BADA 


OIOA^O 


lO^OPS 








ERROR+2! 




010AT? 


\j \Cf ( ( 


OO^OIO 


01 7? 70 


1 1C> 
119* 


MOV 


#4010. 


aRG4 


010^0 


00^7^7 


017000 

v 1 r V/vv 






JSR 


PC. 


RDYBIT 


010^^ 


00S7^7 

f Jf 








TST 


FLAG.1 




oin^tiSo 


OOl^OZt 








BEQ 


2S 




010652 


01 7737 


013204 

V 1 Jb 


001122 




MOV 


acsR. 


BADA 


010660 


104002 








ERROR+2 




010662 


012777 


100000 


013172 


2$: 


MOV 


#BIT15.aCSR 


010670 


012777 


006004 


013166 




MOV 


#6004. 


aRGO 


010676 


004737 


017000 






JSR 


PC, 


ROYBIT 


010702 


005737 


024210 






TST 


FLAG.1 




010706 


017737 


013156 


024144 




MOV 


aRG4, 


SEC 


010714 


012737 


000002 


016104 




MOV 


#2. 


C0NT3 


010722 


004737 


016032 






JSR 


PC. 


UAIT 


010726 


027717 


013136 


024144 




CMP 


aRG4, 


SEC 


010734 


001401 








BEO 


3S 




010736 


104012 








ERR0R*12 




010740 


0^2777 


100000 


013114 


3$: 


MOV 


«8IT15. aCSR 


010746 


012777 


006004 


013112 




MOV 


#6004, 


aRG2 


010754 


004737 


017000 






JSR 


PC, 


RDYBIT 


010760 


005737 


024210 






TST 


FLA6.1 




010764 


017737 


013100 


024144 




MOV 


aRG4, 


SEC 


010772 


012737 


000002 


016104 




MOV 


#2. 


C0NT3 


011000 


004737 


016032 






JSR 


Pf . 


yAIT 


011004 


027717 


013060 


024144 




CMP 


3^64, 


SEC 


011012 


001001 








BNE 


4S 





this routine writes values in dev register randomly 
that is instead of writing in month^day register 
write in hour^in register & instead of writing in 
hour+min reg,write in second register 

West 15 test ranogmly write value in device registers 

t**** **************** *************** 

;;D0 10. ITERATIONS 



CLEAR GSR 

SET BIT #15 IN CSR TO WRITE 
MONTH+DAY 
HOUR+MIN REGISTER 
WAIT FOR READY BIT SET 
READ PRESENT SECOND VALUE 
WAIT FOR A SECOND 
WAIT FOR 2 SECOND 
ARE THEY EQUAL? 

CLOCK WAS SUPPOSE TO BE RUNNING 
IS ERROR FLAG SET? 



;RDY BIT WAS NOT SUPPOSE TO BE SET 
.-WRITE HOUR^MIN VALUE IN SEC REG 
CHECK FOR READY BIT SET 
IS FLAG SET? 



ERROR AS FLAG DIDN'T SET 
WRITE MONTH-t-DAY 

BUT WRITE IN RGO(MONTH^DAY)REGISTER 
CHECK FOR READY BIT SET 
IS FLAG SET? 
;READ SECOND VALUE 
.-WAIT FOR SEC 
:WAIT FOR 1 SECOND 
:ARE THEy EQUAL? 

.-CLOCK WAS NOT SUPPOSE TO BE RUNNING 
;SET BIT TO WRITE HOUR+MIN 
;NOU WRITE IN VALID REGISTER 
CHECK FOR READY BIT SET 
IS FLAG SET? 

READ SECOND 

UAIT FOR SEC 

UAIT FOR 1 SEC 

ARE THEY EQUAL? 

YES, MEANS CLOCK RUNNING 



B 4 
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SEO 0(X0 



1169 
1170 
1171 
1173 
1175 
117A 
1175 
1176 
1177 
1178 
(3) 
(3) 
(2) 
(1) 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
(1) 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
K13 
1214 
1215 
1216 
1217 
1218 
1^19 



011014 
011016 
011022 
011024 
011032 
011034 
011040 



011040 
011042 
011050 
011054 
011056 
011062 
011066 
011070 
011074 
011100 
011102 
011104 
011110 
011112 
011114 
011120 
011124 
011130 
011132 
01 1 1 34 
011140 
011144 

011146 
011152 
011154 
011156 
011162 
011166 
01 1 1 70 
011176 
11204 
11206 
011210 
011214 
011216 



8 



011220 
011222 
011224 
011226 
011230 



104012 
005737 
001406 
017737 
104002 
004737 



000004 
012737 
004737 
104407 
012700 
022700 
003002 
000137 
005077 
012002 
012004 
010274 
012002 
012004 
010274 
004737 
005737 
001403 
104002 
004737 
022027 
001346 

005077 
012002 
012004 
010274 
012037 
012004 
017437 
023737 
001401 
104001 
022027 
001354 
000721 

040000 
024062 
017073 
024064 
000000 



024210 

013032 001122 
016324 



4S: 



5S: 



ERfiOR*12 
TST 
BEO 
HOV 

ERR0R*2 
JSR 



FLAG.1 
5S 

acsR, 

PC. 



; .-ERROR CLOCK WAS SUPPOSE TO BE RUWIN6 



6A0A 
GETROY 



000012 
016106 

011220 
011422 

011424 
012762 



000000 



000000 
01 7000 
024210 



016324 
1 77777 



012710 



000000 
001124 

000000 
001124 



}77777 



001172 



.••TEST 16 

tST16: SCOPE 
MOV 

BASIC: JSR 

CKSUR 
MOV 

1$: CMP 
BGT 
JMP 

2$: CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
TST 
BEO 

ERROR+2 
JSR 

12$: CMP 
BNE 



TEST ROUTINE TO CHECK CLOCK KEEPS CORRECT TIME 
************************************************** 



#10..$TIMES 

PC. CNTLC 

KBASTAB.RO 
«BASENO,RO 
2$ 

BASEND4^2 

acsR 

(RO)*. R2 

(RO)*. R4 

R2. a(R4) 

(RO)*, R2 

(RO)*. R4 

R2, a(R4) 

PC, RDYBIT 
fLAG.1 
12$ 



3$: 



001126 
001126 



4$: 



BASTAB: 



011232 100000 



CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CMP 
BEQ 

ERROR+1 
CMP 
BNE 
BR 

BIT14 

CSR 

17073 

RGO 

000000 

BIT15 



;;00 10. ITERATIONS 



PC. 

(RO)*. 
1$ 



R2 



i(R4> 
GCOO. 
4$ 



GETRDY 



acsR 

m)*. R2 

(ROM, R4 



a<R4) 



(r6;*. GOOD 

((<0)*, R4 



BAD 
BAD 



(ftO)*. #-1 

3$ 

1$ 



POINTER TO THE TABLE 
IS IT END OF TABLE? 
BRANCH IF NOT END OF TABLE 
EXIT 

CLEAR CSR 
MASK FOR CSR 
ADDRESS OF CSR 
MASK IN CSR 

VALUE TO BE SET IN DEV REG 

ADDRESS OF DEV REG 

VALUE IN DEV REG 
CHECK FOR READY BIT SET 
IS FLAG SET? 

BRANCH IF SET 

HDYBIT FAIL TO SET 

GO GET READY BIT 

IS IT END OF SUBSET? 

GET NEXT VALUE FROM TABLE 

CLEAR CSR 

MASK TO READ DEV REG 
ADDRESS OF CSR 
SET BIT IN CSR TO READ 
EXPECTED VALUE IN GOOD 
ADDRESS OF DEV REG 
ACTUAL VALUE READ 
£XPECTEO=ACTUAL? 
BRANCH IF EQUAL 

IS IT END OF SUBSET? 

BRANCH IF NOT 

IS THERE ANY MORE VALUES 

BIT TO SET YEAR VALUE 
ADDRESS Of CSR 
YEAR = 1979 

ADDRESS OF DEVICE REGISTER 
NOT END OF SUBSET 



;;8IT TO SET MONTH^DAY 
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1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

V50 

1231 

1252 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

124'' 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1?75 



011234 
011236 
011240 
011242 

011244 
011246 
011250 
011252 
011254 

011256 
011260 
011262 
011264 
011266 

011270 
011272 
011274 
011276 
011300 

011302 
01 1 304 
011306 
011310 
011312 

011314 
011316 
011320 
011322 
011524 
011326 
011330 
011332 
011334 
011336 

011340 
011342 
011344 
011346 
011350 

011352 
011354 
011356 
011360 
011362 

011364 
011366 
011370 
011372 



024062 
006037 
024064 
000000 

100000 
024062 
006000 
024066 
1 77777 

000004 
024062 
01 7073 
024064 
000000 

000002 
024062 
002455 
024064 
OOOOOO 

000001 
024062 
006000 

}77777 

040000 
024062 
017074 
024064 
OOOOOO 
100002 
024062 
000001 
024064 
OOOOOO 

100000 
024062 
OOOOOO 
024066 
}77777 

000002 
024062 
000001 
024064 
OOOOOO 

000001 
024062 
000401 
024064 



07:40 PAGE 3-4 

T16 TEST ROUTIfKE 

CSR 
6037 
RGO 
OOOOOO 

BJT15 

CSR 

6000 

RG2 

^77777 

BIT2 

CSR 

17073 

RGO 

00000 

BIT1 

CSR 

2455 

RGO 

00000 

BITO 

CSR 

6000 

RG2 

y77777 

8IT14 
CSR 
17074 
RGO 

OOOOOO 

BIT15+8IT1 

CSR 

001 

RGO 

00000 

BIT15 

CSR 

00000 

RJ2 

'\77777 

BIT1 
CSR 

1 

RGO 
00000 

BITO 
CSR 
401 
RGO 



CLOCK KEEPS CORRECT TIME SEO 00^1 

.-.ADDRESS OF CSR 
..-DECEMBER 31 
.-.ADDRESS Of DEV REG 
;;NOT END OF SUBSET 

;;8IT TO SET HOUR*«IN 
.-.ADDRESS OF CSR 
;;HOUR=12.«IN=0 
.'.ADDRESS OF REGISTER 
;;END OF SUBSET 

;;BIT TO READ YEAR VALUE 
.-.ADDRESS OF CSR 
; .-EXPECTED YEAR VALUE 
: .-ADDRESS OF DEV REG 
.-.-NOT END OF SUBSET 

;;T0 READ JULIAN DAY 
; .-ADDRESS OF CSR 
;; EXPECTED JULIAN DAY 
.-.-ADDRESS OF DEV REG 
.-.-NOT END OF SUBSET 

;;T0 READ HOR+MIN 
.-.•ADDRESS OF CSR 
.-.-EXPECTED HOUR+MIN 
.-.'ADDRESS OF DEV REG 
.-.-END OF SUBSET 

'.-SET YEAR 
.'.-ADDRESS OF CSR 
.'.-1980 

.'.'ADDRESS OF DEVICE REG 
.'.'NOT END OF SUBSET 
;;SET JULIAN DAY 

; .'JULIAN DAY (JAN 1) 
; .-ADDRESS OF DEV REG 
;;NOT END OF SUBSET 

;;SET HOUR+MIN 

.'.'OHOUR.OMIN 
.'.-ADDRESS OF REG 
;;END OF SUBSET 

.-.-READ JULIAN DAY 

.-.-EXPECTED VALUE 

; .ADDRESS Of DEV REG 

;;NOT END OF SUBSET 

;;READ MONTH+DAY 

;;JAN 1 31 

.-.ADDRESS OF DEV REG 
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1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1295 
1294 
1295 
1296 
1297 
1298 
(3) 
(3) 
(2) 
(1) 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1507 
1308 
1309 
1310 
1311 
1312 
1j15 
131A 
1315 
1316 
1317 
1318 
1319 
1520 
1321 
1522 
1523 
1324 
1325 
(1) 
^26 



011374 000000 



011576 
011400 
011402 
011404 
011406 

011410 
011412 
011414 
011416 
011420 
011422 



011424 
011426 
011434 
011442 
011446 
011450 
011454 
011460 
011462 

011466 
011474 
011500 
011504 
011510 
011516 
011524 
011530 
011536 
011542 
011546 
011550 
011556 

011560 
011564 
011566 
011572 
011576 
011602 
011606 



000001 
024062 
000000 
024066 
000000 

000001 
024062 
000000 
024070 
m777 
000000 



000004 
012737 
013737 
004737 
104407 
012700 
022700 
003002 
000157 

012757 
012057 
005077 
005037 
012777 
013777 
005037 
012737 
004737 
005737 
001011 
017737 
104014 

005077 
005720 
000137 
005037 
004737 
005737 
001417 



000012 
024106 
016106 

012152 
012212 

012114 

000001 
001124 
012356 
024212 
100100 
001124 
024120 
000005 
015726 
024212 



011454 
024212 
01 7000 
024210 



07:40 PAGE 5-5 
716 TEST 

OOCOO 

BITO 
CSR 
00000 
RG2 
00000 

BITO 
CSR 
00000 
RG4 

\77777 
BASEND: 000000 



D 4 

ROUTIVE TO CHECK fLOCK KEEPS CORRECT TIME 

.■;N0T END OF SUBSET 
;;READ HOUR+MIN 
EXPECTED H0UR*«IN 
NOT END OF SUBSET 



I 



SEO 0042 



READ SECOND 

ADO OF CSR 

EXPCTED SECOND VALUE 

ADDRESS OF SECOND REG 

END OF SUBSET 

END OF TABLE 



001 1 72 
177776 



.THIS ROUTINE CHECKS IF INTERRUPT OCCURS PROPERLY 



; ; *************************************************************** 

.••TEST 17 TEST UPDATE INTERRUPT 

• ■ *************************************************************** 

TST17: SCOPE 

#10.,$TIHES ;;D0 10. ITERATIONS 
DPRI . PS« 



MOV 

TA8DR4: MOV 
JSR 



1$: 



024226 2$: 



012344 
012340 

016030 



012306 001122 



012276 



3$: 



CKSW 
MOV 
CMP 
B6T 
JMP 

MOV 
MOV 
CLR 
CLR 
MOV 
MOV 
CLR 
MOV 
JSR 
TST 
BNE 
MOV 

ERR0R*14 

CLR 
TST 
JMP 
CLR 
JSR 
TST 
BEO 



PC, 



CNTLC 



*TABLE4,R0 
#TABEN4.R0 
2$ 
8S 

*1 , INTREG 
(RO)*. GOOD 

acsR 

FLAG. 2 

*8IT15*BIT6,aCSR 
GOOD. aRGO 



ACSR 
*5. 
PC. 

FLAG. 2 
3f 

acsR, 



ac SR 

(RO)* 

1$ 

FLAG. 2 
PC. 

aAG.I 
4S 



TIMES 
INTRTN 



BADA 



RDYBIT 



POINTER TO THE STARTING ADDRESS OF THE rABLE4 
IS IT END OF TA8EN5? 
BRANCH IF NOT 
EXIT 

FLAG TO INDICATE UPDATE INTRPT 

UPDATE VALUE 

CLEAR CSR 

CLEAR FLAG 

INTERRUPT EMBLED 

M0NTH4-DAY VALUE IN DEV REG 

CLR LOCATION 

WAIT FOR APPRO 5 SEC 

WAIT FOR INTERRUPT 

IS INTERRtPT OCCUREO? 

BRANCH ON INTERRUPT 

GET STATUS Of CSR 

INTERRJPT DIDN'T OCCUR UHILE 

UPDATING CLOCK WITH INTENA8LE 

DISABLE INTERRUPT 

POP UP PONITR 

GET NEXT VALUE 

CLEAR INTERRUPT FLAG 
CHECK FOR READY BIT SET 
IS FLAG SET? 
.-BRANCH IF YES 
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E 4 

l^DATE INTERRUPT 



1327 

1328 

1329 

1530 

1331 

1532 

1333 

153C 

1535 

1336 

1537 

1338 

1539 

1340 

134 

1342 

1543 

1344 

1545 

1546 

1547 

1548 

1349 

• 50 

551 
1352 
1353 
1554 
1355 
1356 
1357 
1358 
1359 

<1) 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1375 
1374 
1375 
1376 

(1) 
1377 
1378 
1379 
1380 



011610 
011614 
011622 
011630 
011632 
011640 
011642 
011646 
011652 
011660 
011666 
011670 
011676 

011700 
011704 
011710 
011714 
01 1 720 
011726 
011734 
011740 
011746 
011752 
011756 
011760 
011766 

01 1 770 
01 1 774 
011776 
012002 
012006 
012012 
012016 
012020 
012024 
012032 
012040 
012042 
012050 
012052 
012056 
012062 
012070 
012076 
012100 
012106 
012110 
012114 
012120 
012124 
012130 
012132 
012136 
012144 



012037 
017757 
025757 
001711 
013737 
104001 
000137 
012037 
017757 
025757 
001406 
015757 
104001 

000157 
012057 
005077 
005057 
012777 
015777 
005057 
012757 
004737 
005737 
001011 
017737 
104014 

005077 
005720 
000137 
005057 
004757 
005737 
001417 
012037 
017737 
023737 
001721 
013737 
104001 
000137 
012037 
017737 
023737 
001404 
013737 
104001 
000137 
005037 
004737 
005737 
001002 
000137 
017737 
104001 



001124 




liOV 


(RO)*, 


GOOD 


012244 


001126 


nov 


SRGO, 


BAD 


001124 


001126 


CMP 


GOOD, 


BAD 






BEO 


IS 




024120 


001122 


nov 


ACSR, 


BADA 






ERROR-^l 






011454 




J«P 


IS 




001124 


4S: 


nov 


(ftO)*, 


GOOD 


012206 


001126 


MOV 


iRGO, 


BAD 


001124 


001126 


CMP 


GOOD, 


BAD 






BEO 


5S 




024120 


001122 


MOV 


ACSR, 


BADA 



011454 
001124 
012146 
024212 
100100 
001124 
024120 
000005 
015726 
024212 



5S: 



012134 
012132 

016030 



012076 001122 



012066 




011454 




024212 




017000 




024210 




001124 




012036 


001126 


001124 


001126 


024120 


001122 


011704 




001124 




012000 


001126 


001124 


001126 


024120 


001122 


011454 




024226 




017000 




024210 




012214 




01 1 720 


001122 



6S: 



7$: 



11$: 
8S: 



ERROR+1 

JMP 
MOV 
CLR 
CLR 
MOV 
MOV 
CLR 
MOV 
JSR 
TST 
6NE 
MOV 

ERROR+14 

CLR 
TST 
JMP 
CLR 
JSR 
TST 
BEO 
MOV 
MOV 
CMP 
BEO 
MOV 

ERROR^I 
JMP 
MOV 
MOV 
CMP 
BEO 
MOV 

ERROR+1 
JMP 
CLR 
JSR 
TST 
BNE 
JMP 
MOV 

ERROR* 1 



1S 

(RO)*. GOOD 

acsR 

FLAG. 2 

*8IT15+BIT6,aCSR 
GOOD, aRG2 



ACSR 
#5, 
PC, 

FLAG. 2 
6S 

acsR, 



TIMES 
INTRTN 



BADA 



acsR 

(RO)* 
IS 

FLAG. 2 

PC, RDVBIT 
FLAG.1 
7$ 

(R0)*.GOOD 
aRG2, BAD 
GOOD, BAD 
SS 

ACSR, BADA 
5S 

(R0)+.GOOD 
aRG2, BAD 
GOOD, BAD 
IIS 

ACSR, BADA 



RDYBI r 



1$ 

INT^EG 
PC, 

FLA6.1 
9S 

TA3EN4+2 
aCSR. BADA 



.EXPECTED VALUE IN GOOD 

;READ MONTH^OAY 

.ARE THEY EQUAL? 

:fES, BRANCH 

;GCT STATUS OF CSR 

.•READ VALUE NOT MATCH WITH EXPECTED 

;GcT MORE VALUE 

.-EXPECTED VALUE 

.•ACTUAL VALUE IN BAD 

.-ARE THEY EQUAL? 

.•BRANCH IF EQUAL 

;GET STATUS OF CSR 

.•READ VALUE NOT MATCH WITH 

.•EXPECTED 

.GET NEXT VALUE 

:HOUR-»MIN IN GOOD 

.•CLEAR CSR 

; INTERRUPT ENABLED 
:HOUR-»MIN IN DEV REG 

•5 SEC 

:UAIT FOR INTERRUPT 
;IS INTERRUPT OCCURED? 
;8RANCH IF YES 
.READ STATUS OF CSR 
.•INTERRUPT DIDN'T OCCUR WHILE 
.•UPDATING CLOCK 
.•UNABLE INTERRUPT 
;POP UP POINTER 

•CLEAR INTERRUPT FLAG 

CHECK FOR READY BIT SET 

IS FLAG SET? 

•BRANCH IF YES 

•EXPECTED VALUE OF HOUR+MIN 

.-READ ACTUAL HOUR*MIN 

;ARE THEY EQUAL? 

;G0 GET MORE VALUES 

;GET CSR STATUS 

:READ VALUE NOT MATCH UJTH EXPECTED 

;GET MORE VALUE 

.•EXPECTED HOLR+MIN 

.•READ HOUR^MIN 

;ARE THEY EQUAL? 

;GET NEXT VALUE 

.-GET STATUS OF CSR 

.READ VALUE NOT MATCH WITH EXPECTED 

■CLR UPDATE INT FLAG 
CHECK FOR READY BIT SET 
IS FLAG SET? 

.BRANCH IF READY DIDN'T SET 

;£XIT TO NEXT ROUTINE 

;GET STATUS OF CSR 

.READ VALUE NOT MATCH WITH EXPCTEO 
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1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1597 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
140S 
1406 
1407 
(3) 
(3) 
(?) 
(1) 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
142S 
1426 
1427 
1428 
1429 
1430 
1431 
H32 



012146 
012152 
012154 
012156 
012160 
012162 
012164 
012166 
012170 
012172 
012174 
012176 
012200 
012202 
012204 
012206 
012210 
012212 



012214 
012216 
012224 
012232 
012236 
012240 
012244 
012250 
012256 
012262 
012270 
012276 
012304 
012310 
012314 
012316 
012324 

012326 
012332 
012340 
012344 
012350 
012354 
012360 
012362 
012370 



00013/ 012214 

000401 

000401 

000000 

000000 

006002 

006002 

002004 

002004 

004000 

004000 

004002 

004002 

014400 

000000 

006020 

006020 

000000 



F 4 

tPDATE INTERRUPT 
TA8EN4*2 



SEO 0044 



000004 
012737 
013737 
004737 
104407 
012700 
012703 
012737 
004737 
012777 
012777 
012777 
004737 
005737 
001406 
017737 
104006 

004737 
012777 
012077 
012077 
004737 
005737 
001411 
017737 
104007 



000001 
024106 
016106 

013064 
013134 
000002 
016560 
000000 
040000 
017070 
017040 
024210 



TAeLE4: 00401 
00401 
00000 
00000 
06002 
06002 
02004 
02004 
04000 
04000 
04002 
04002 
14400 
00000 
06020 
06020 

TA8EN4: 00000 



THIS ROUTINE PRE-SETS INTERRUPT FOR 
0HOUR,0WINUTE.0 SECOND OF THE 
FIRST DAY OF THE MONTH 



.-.EXIT 



♦TEST 20 TEST PRE-SET INTERRUPT 



001172 
1 7777b 



02^226 

011572 
011564 
011560 



TST20: SCOPE 



PRESET: 



1$: 



011540 001122 

016324 ' 

000000 011522 

011516 

011514 

017040 

024210 

011474 001122 



2$: 



nov 


/ri,$TIMES 


MOV 


DPRJ. 


PSW 


JSR 


PC, 


CNTLC 


CKSUR 






MOV 


#TABLE5,R0 


MOV 


4rTABEN5,R3 


MOV 


tf2. 


INTREG 


JSR 


PC, 


INIPRE 


MOV 


#0. 


acsR 


MOV 


«BITU,aCSR 


MOV 


f17070.aRG0 


JSR 


PC, 


RDYCK1 


TST 


FLAG.l 




BEQ 


2S 




MOV 


acsR, 


BADA 


ERR0R^6 






JSR 


PC. 


GETRDY 


MOV 




acsR 


MOV 


(RO)*, 


acsR 


MOV 


(RO)*. 


aRGO 


JSR 


PC, 


RDYCKI 


TST 


FLAG.l 




BEO 


3$ 




MOV 


acsR, 


BADA 


tRR0R*7 







;;D0 1 ITERATION 



;;IS IT CONROL C? 



PONTER TO THE STARTING ADDRESS OF THE TA81.E 
R3 CONTAINS END ADDRESS OF TABLE 
FLAG TO INDIACATE PRESET INTRPT 
GET 'M* BIT SET 
CLEAR CSR 

SET (SY) BIT IN CSR TO WRITE A YEAR VALUE 
YEAR 1976 IN OEV REG 



.-.•BRANCH IF NOT 

; .-READY BIT DIDN'T SET PROBABLE 
;; CAUSE. YEAR VALUE MAY BE INVALID 
.-.-GET READY BIT SET 

.-.-GET MASK TO SET IN CSR 
;; VALUE IN MONTH ♦ DAY REG 



.-BRANCH IF READY BJT Slf 
.READ CSR 

.-ERROR: READY BIT DIDN'T SET 



01U16 001122 



TST 
TST 
TST 
JHP 

nov 
nov 
nov 

JSR 
TST 
BEO 
PWV 

ERROR^IO 



(RO)* 
(RO)* 
(RO)* 
11$ 
#0, 



acsR 



«8IT15.aCSR 
#13*73, aRG2 
PC. RDYCK1 
FJ^G.1 

aCSR, BADA 



#0, acsR 
(RO)*, acsR 



aRGO 
RDYCK 
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U55 
U54 
U35 

U36 012372 

U37 012374 

1458 012376 

1439 012400 000137 013024 

1440 012404 012777 000000 011450 5S: 

1441 012412 012777 100000 011442 

1442 012420 012777 013473 011440 

1443 012426 004737 017040 

1444 012432 005737 024210 

1445 012436 

1446 012440 

1447 012446 
1448 
1449 

KbO 012450 012777 000000 011404 4$: liOV 

1451 012456 0^2077 011400 MOV 
1452 

1453 012462 012077 011376 MOV 

1454 012466 004737 017120 JSR 

1455 012472 005737 024210 TST 

1456 012476 001406 BEQ 

1457 012500 017737 011356 001122 MOV 

1458 012506 104011 ERR0R*11 

1459 012510 005720 TST 

1460 012512 000544 BR 

1461 012514 012777 000000 011340 5$: MOV 

1462 012522 012777 100200 011336 MOV 
146? 012530 004737 017120 JSR 

1464 012534 005737 024210 TST 

1465 012540 001406 BEO 

1466 012542 017737 011514 001122 MOV 

1467 012550 104011 ERR0R*11 

1468 012552 005720 TST 

1469 012554 000523 BR 

1470 012556 012777 000000 011276 6$: MOV 

1471 012564 012777 100000 011276 MOV 

1472 012572 004737 017040 JSR 

1473 012576 005757 024210 TST 

1474 012602 001406 BEO 

1475 012604 017757 011252 001122 MOV 

1476 012612 104026 ERROR+26 
1477 
1478 

1479 012614 005720 TST 

1480 012616 000502 BR 

1481 012620 005077 011236 7$: CLR 

1482 012624 005037 024212 CLR 

1483 012630 005037 024120 CLR 

1484 012634 012777 000100 011220 MOV 

1485 012642 012737 000120 016030 MOV 

1486 012650 004737 015726 JSR 

1487 012654 005737 0242^2 TST 
i<.88 012660 001006 BNE 



005720 
005720 
005720 
000137 
012777 
012777 
012777 
004737 
005737 
001404 
017737 
104010 



(RO)*, 
PC. 
FLA6.1 
5$ 

acsR. 

1 

(RO)* 
11$ 

#160200 
PC. 
FLAG.1 
6$ 

acsR. 

(RO)* 

11$ 

#160000, 

PC, 

FLA6.1 
7$ 

acsR. 



BADA 



acsR 

,aRG2 

RDYCK 



BADA 



acsR 

aRG4 
RDYCKl 



BADA 



(RO)* 
11$ 

acsR 

FLAG. 2 
ACSR 

*BIT6, aCSR 
#120. TIMES 
PC. INTRTN 
FLAG. 2 
8$ 



.PROBABLE CAUSE OF AN ERROR 
;ONE OR BOTH VALUES OF MONTH 
.-♦DAY MAY BE INVALID 



.'.ADJUST POINTER 



.-.-WRITE HOUR^MIN 
;;HOUR*MIN IN REG2 



.-.-BRANCH IF NOT 

;;6ET CSR STATUS 

;; ERROR: ONE OR BOTH VALUES 

;;0F HOUR+MINUTE MAY BE 

;; INVALID 

;; CLEAR CSR. OR SET INTRPT 

;;F0R JULIAN DAY IF BIT! IS SET 

;;PRE-SET INTERRUPT 

;;60 CHECK FOR READY AND DE BIT 

;;IS 'DE' AND 'RDY' BIT SET? 

; .-BRANCH IF (DE AND RDY}BIT SETS 

;;6ET CSR STATUS 

;;(DE) BIT FAIL TO SET 

; .-ADJUST POINTER 

;; EXIT 

;;PRE-SET INTERRUPT FOR HOUR+MIN 
; .-CHECK FOR RDY AND DE BIT 
;;IS CDE' AND 'RDY') SET? 
; .-BRANCH IF SET 

;;6ET CSR 

;;(DE) BIT FAIL TO SET 
.-.-ADJUST PONTER 
.-.-GET NEXT VALUE 

;;PRE-SET INTERRUPT FOR 0 SEC 

;;IS FLAG BIT SET? 

.-.-BRANCH IF (DE.RDY.MBIT) BIT SET 

;;GET CSR STATUS 

.-.-PROBABLE CAUSE OF AN ERROR: 

;;'M'8IT FAIL TO SET CHECK 

.-;CSR TO FIND EXACT CAUSE OF AN ERROR 

; .-ADJUST POINTER 

;;GET NEXT VALUE 

;: CLEAR INTERRUPT FLAG 

••NOW ENABLE INTERRUPT 
.-.-APPRO 80 SEC 
;;WAIT FOR INTERRUPT 
.-;IS INTERRUPT OCCURED? 
; .-BRANCH IF YES 
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U89 


012662 


017757 


011174 


001122 




MOV 


iCSR, 


BADA 


U90 


012670 


104015 








ERROR* 15 




1491 


















1492 


012672 


005077 


011164 






CLR 


acsR 




1493 


012676 


005037 


024212 




8S: 


CLR 


FLAG. 2 




1494 


012702 


017737 


011156 


001126 




nov 


aRGO, 


BAD 


1495 


012710 


012037 


001124 






nov 


(RO)*, 


GOOD 


1496 


012714 


023737 


001124 


001126 




CMP 


GOOD, 


BAD 


1497 


012722 


001404 








BEO 


9$ 




1498 


012724 


013737 


024120 


001122 




nov 


ACSR, 


BADA 


1499 


















1500 


012732 


104001 








ERROR* 1 






1501 


















1502 


















1503 


012734 


017757 


011126 


001126 


9S: 


nov 


aRG2, 


BAD 


1504 


012742 


012737 


000000 


001124 




nov 




GOOD 


1505 


012750 


023737 


001124 


001126 




CMP 


GOOD, 


BAD 


1506 


0127*^6 


001404 








BEQ 


10$ 




1507 


012760 


013737 


024120 


001122 




nov 


ACSR, 


BADA 


1508 


012766 


104001 








ERR0R*1 






1509 


















1510 


Q^27/o 


01 7737 


011074 


001126 


10S: 


MOV 


aRG4, 


BAD 


1511 


012776 


012737 


000000 


001124 




MOV 


#0, 


GOOD 


1512 


013004 


023737 


001124 


001126 




CMP 


GOOD, 


BAD 


1513 


013012 


001404 








BEQ 


11$ 




1514 


013014 


013737 


024120 


001122 




MOV 


ACSR, 


BADA 


1515 


013022 


104001 








ERROR+1 






1516 


















1517 


013024 


004737 


016106 




11$; 


JSR 


PC, 


CNTLC 


1518 


013030 


020003 








CMP 


RO, 


R3 


1519 


013032 


002412 








BLT 


12$ 




1520 


013034 


005037 


024226 






CLR 


INTREG 




1521 
1522 


013040 


012777 


000000 


011016 




MOV 


#0, 


iRGO 


013046 


012737 


004002 


020160 




MOV 


#L0GTST,$RTNAD 


1523 


013054 


000137 


020060 






JMP 


$£0P 




1524 


013060 


000137 


012332 




12$: 


JMP 


2$ 




1525 


















1526 


















1527 


013064 


100002 






TABLES: 


100002 






1528 


013066 


000074 








000074 






1529 


013070 


000002 








0000002 






1530 


013072 


100075 








100075 






1531 


015074 


001401 








001401 






1532 


















533 


013076 


100000 








100000 






'534 


013100 


004436 








004436 






1535 


013102 


000000 








000000 






1536 


013104 


105201 








105201 






1537 


013106 


005001 








005001 






1S38 


















1539 


013110 


100002 








100002 






ISi^O 


013112 


002456 








002456 






1541 


013114 


000002 








000002 






1542 


013116 


100001 








100001 






1543 


013120 


000401 








000401 






1544 



















GET STATUS Of CSR 

INTERRUPT DIDN'T OCCUR ON 

PRESET VALUE 

CLEAR IKTERRUPT ENABLE 

CLEAR FLAG.2 

READ MONTH*DAY 

EXPECTED HO^+MIN 

ARE THEY EQUAL? 

YES, BRANCH 

GET STATUS OF CSR AT TIME 

OF INTERRUPT 

READ VALUE NOT MATCH 

WITH EXPECTED VALUE OF 

MONTH+DAY 

READ HOUR*MIN 

EXPECTED HOUR+MIN 

EQUAL? 

GO TO READ SECOND 

GET CSR STATUS AT TIME OF INTERRUPT 

READ VALUE Of HOUR ♦MINUTE 

DIDN'T MATCH WITH EXPECTED VALUE 

:READ SECOND 

;EXPECTED SECOND VALUE 

ARE THEY EQUAL? 

GET MORE VALUE 

;GET CSR AT TIME OF INTERRUPT 
;READ VALUE NOT EQUAL TO EXPECTED 
; VALUE OF SECOND 
;IS IT CONTROL C? 
:IS IT END OF TABLE? 
BRANCH IF NOT 
; CLEAR INTERRUPT SWITCH 
;JUST TO CLEAR 'M' BIT 



;;GET MORE VALUES 



MASK TO SET JULIAN DAY 

SET FEB-29 
JULIAN BIT SET 
MARCH-1 (INTRPT ENBLE) 
MARCH-1 



;;SEP-30 

;;0CT-1 (INTRPT ENABLE) 
;;0CT-1 

;;SET JULIAN DAY 
;;DEC-31 

;;SET JULIAN BIT 
;;JAN-1 (INTRPT ENABLE) 
;;JAN-1 
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7<yLA.P11 


l3-*1A«-80 07:39 




T20 


TEST 1 




A1 T1 


100000 








100000 




A1 TIT/ 

0l5i?4 


001054 








001034 


1 C/ 7 


A1 T1 

0 1 51 ^6 


000002 








000002 


1 c/ o 


01 5150 


i AAA7/ 








100074 


^c/ c 
1 5»»V 


Ai 71 7*3 

01 31 ic 


A/M / m 
001 4U1 








001401 




A^ Ti T/ 

01 51 54 


AATiAAA 
000000 






TA8EN5: 


000000 


1 CC1 














1 CCT 

1 












.S8TTL 


1 ^CT 














1 ^CZ. 
1 JJH 














1 ^CC 














1 ccx. 
1 7^0 










:THIS ROUTINE 


















m XI zx. 

U1 51 5o 








MEurin: 




^ 1 > 


rtl XI 

U 1 51 5o 


1 nzzm 
1 u*»<«u 1 


m XI/ / 
U 1 5 






TyPE 


t ^ \ 
I I J 




nnn/ / / 
UUU«»H*i 








BR 


1 ^ s 










;;65$: 


.ASCIZ 


\ 1 J 


UI icj'^ 








64$: 




I jjy 


ni X5?/ 
Ul Sep** 


1 n/ / ni 
1 UhhU I 


ni XJAJ 






TYPE 


\ 1 ) 


A1 X3/^ 

01 5<:oy 


AAA/ nx 








BR 


' 1 ^ 










;;67$: 


•ASCIZ 


I 1 / 










66S: 




1 

1 50U 


ni X57n 

Ul icr\) 


1 nzzni 


ni X57A 

U 1 5cro 






TYPE 


( 1 > 


ni X37A 
U 1 3c I H 


UUU*» 1 c 








BR 


^ 1 f 












.ASCIZ 


1 1 ) 


U 1 JJCC 








68S: 




1 jO I 














1 "^A^ 
1 jOc 


ni XX55 


ni 57n5 






1$: 


MOV 


1 ?05 


rtl XX7/C 

U 1 ^5co 


nncnx7 
UU3U3f 


n5A1 55 






CLR 


1 lAZ. 
1 jO*» 


U 1 55jc 


nn^nx7 


n5Z1 5Z 






CLR 


1 

1 JO J 


rtl XXXA 
U1 J.>50 


nnQnx7 
UUjU3f 


n5z 51 n 
Uc*»c lU 






CLR 


1 


ni XX/. 5 
Ul 554^ 


nn5nx7 


n5Z 1 5A 
U^hI CO 






CLR 


1 1 A7 

1 ^0^ 


ni xx/./L 
Ul 5340 


nncnx7 
UUjU3' 


n5/ 5xn 
Uc4t:3U 






CLR 


1 ^Afi 

1 >oo 


ni xx^? 


nn';nx7 


n5/ 1 75 

Uc*» 1 f c 






CLR 


1 ^0" 














1 jr\J 


ni xxivA 


1 KJHH \ u 






2$: 


RDCHR 




ni xx/.n 
U 1 55oU 


ni 5 An/ 
U 1 <:OUh 








MOV 


1 ^73 


ni XXA3 


1 1 n/ X 7 


A5Z 5^n 

UCHC jU 






M0V8 


1 ^77 


ni xiij^a 

U 1 33O0 


1 Ay zni 
1 UmhU I 


n5z 5^n 






TYPE 


1 ^7/. 

1 Jf H 


ni XX70 

U i33f c 




/Snnn^/ 






CMP 


H7< 

1 JfJ 


ni XX7/:. 
U 1 33 ' O 


nni nn7 
UU lUUr 








8NE 


1 Q7A 


ni xznn 
Ul 3*«UU 


ni X755 

Ul jf cc 


AO/ 1 5Z 

U<:41(;o 






MOV 


■1 •;77 


ni XLCu. 


nncnx7 
UU3U3f 


n5/ 1 5<t 

UdHl CO 






CLR 


I pro 


ni xz 1 n 
U13*« lU 


nnc5X7 


n5/ 1 5/ 






INC 


1 ^70 

1 J f ▼ 


ni Xz, 1 z. 


UUUroU 








BR 


1 cha 
1 joU 


ni X/.1 A 
U13*» 10 


n557n/ 


Annn5^ 




3$: 


CMP 


1 JO 1 


ni X/. 55 


nni 








BEO 


1 jOc 


U13^c*» 


UccrV** 


UUUUl 3 






CMP 




013430 


001 OPA 








BNE 


1584 


015432 


013722 


024126 






MOV 


1585 


013436 


005037 


024126 






CLR 


1586 


013442 


022702 


024316 






CMP 


1587 


013446 


001060 








BNE 


1588 


013450 


022737 


000004 


024 V4 




CMP 


1589 


013456 


001054 








BNE 


1590 


013460 


112737 


000012 






M0V8 



p 



I 4 

-SET INTERRUPT 



SEO 00^^ 



;FE8-28 

MARCH-1 (INTRPT 

MARCH-1 

END OF TABLES 



ENABLE > 



SET TIME OF THE CLOCK 



ET3 NEW TIME IN THE CLOCK 



,65S 
64S 

<200>/TYPE 

.67$ 
66S 

<200>/NEW/ 



;;TyPE ASCIZ STRING 
;;GET OVER THE ASCIZ 
tR" AT THE ENS) OF THE FOLLOWING LINE TO END ENTERING TIME VA 

.-.-TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



,69$ ;;TYPE ASCIZ STRING 

68$ ;;GET OVER THE ASCIZ 

<200>/YYYY,MO.DD,HH,MI/<200> 



4DIGIT. R2 

OCTNUM 

COMMA 

FLAG.1 
DIGCNT 
SOFSWT 
SWITCH1 



POINTER TO DIGIT TABLE 
INITIALIZE OCTNLW 
CLEAR COMMA COUNT 
CLEAR FLAG 

INITIALIZE DIGIT COUNT 
CLEAR SOFTWARE SWITCH 
CLEAR SWITCHI 



(SP)*. 
R4, 

#54, 
3$ 

DIGCNT, 

DIGCNT 

COMMA 

2$ 

#25. 

NEWTIM 

#15. 

4$ 

DIGCNT, 

DIGCNT 

#DIGEND 

6$ 

#4, 

6$ 

#12. 



R4 

ECH0B1 
ECH0B1 
R4 

(R2)* 



R4 
R4 

(R2)* 
.R2 
COMMA 

ECH08 



STORE CHARACTER 

ECHO THE CHARACTER 

IS IT COMMA? 

BRANCH IF NOT 

DIGIT COUNTER ON THE STACK 

TO USE AGAIN 

KEEP TRACK Of COMMAS 

IS CONTROL U? 
GO BACK 
IS IT CR? 
BRANCH IF NOT 
GET DIGIT COUNT 

IS IT END OF DIGIT TABLE? 

ALL VALUES ARE NOT ENTERED SO BR 

BRANCH IF NOT ENOUGH COMMAS 
FOR LINE FEED 



HMU. 3CA'1052) 13-^-80 07:40 PAGE 3-11 

ZlcyLA.PII l5-#W-80 07:39 SET TJHE Of THE 



1591 


015466 


104401 


024244 






TYPE 


159? 


015472 


004737 


014224 






JSR 


159S 


015476 


004757 


013702 






JSR 


1594 














1595 


013502 


000137 


013700 






JMP 


15% 


013506 


022704 


000177 




4S: 


CMP 


1597 


013512 


001005 








BNE 


1598 


015514 


104401 


001202 






TYPE 


1599 


013520 


104401 


001203 






TYPE 


1600 


013524 


000714 








m 


1601 


013526 


020427 


000060 




9$: 


CMP 


1602 


013532 


002426 








BLT 


1603 


013554 


020427 


000071 






C«P 


1604 


013540 


003023 








BGT 


1605 


013542 


010422 








MOV 


1606 


013544 


005237 


024126 






INC 


1607 


013550 


005737 


024124 






TST 


1608 


013554 


001005 








BNE 


1609 


013556 


023727 


024126 


000004 




CMP 


1610 


013564 


003674 








BLE 


1611 


013566 


000410 








BR 


1612 


013570 


022737 


000004 


024124 


5$: 


CMP 


1615 


013576 


002404 








BLT 


1614 


013600 


023727 


024126 


000002 




CMP 


1615 


013606 


003663 








BLE 


1616 














1617 










.THIS 


ROUTINE 


1618 


013610 


020227 


024254 




6$: 


CMP 


1619 


013614 


002402 








BLT 


1620 


013616 


005042 








CLR 


1621 


013620 


000773 








BR 


1622 


013622 








7$: 




(1) 


013622 


104401 


013630 






TYPE 


(1) 


013626 


000422 








BR 


(1) 












.ASCIZ 


(1) 


013674 








^6$: 


1623 


01 3674 


000137 


013136 






JMP 


1624 


013700 


000207 






8$: 


RTS 


1625 














1626 














1627 














1628 












.S8TTL 


1629 














1630 














1631 


013702 


000005 






YERTN: 


RESET 


1632 


013704 


013700 


024132 






MOV 


1633 


013710 


010001 








MOV 


1634 


013712 


042700 


1 77700 






BIC 


1635 


013716 


042701 


1 70077 






BIC 


1636 


013722 


006301 








ASL 


1637 


013724 


006301 








ASL 


1638 


013726 


050100 








BIS 


1639 


013730 


052777 


040000 


010124 




BIS 


1640 


013736 


010077 


010122 






MOV 


1641 


013742 


004737 


017000 






JSR 


(1) 


013746 


005737 


024210 






TST 



J 4 



1 



CLOCK 

ECHQB 
PC. DECOCT 
PC, YERTN 

8S 

#177. R4 
9S 

.SOUES 
.fCRLF 
H 

R4, #60 
6S 

R4. #71 
6S 

R4. (R2)* 

DIGCNT 

COMMA 

5S 

DIGCNT. #4 

2S 

6$ 

#4. COMMA 
6S 

DIGCNT. #2 
2$ 



SEO 0048 



TO OCTAL CONVERSION ROUTINE 
TO ENTER VALUES INTO 



DECIMAL 
ROUTINE 

DEVICE REGISTER 
EXIT 

IS IT RU80UT? 
NO BR 
TYPE A •?• 

•tARRlAGE RETURN" AND 'IINE FEED" 

READ NEW CHARACTERS 

IS NUWER BELOW ZERO ? 

BRANCH IF YES 

IS Nl^R ABOVE NINE ? 

BRANCH IF YES 

VALID NUMBER ON DIG STACK 

COUNT NUMBER OF DIGITS BEFORE COMMA 

IS IT FIRST Nl/BER ? 

BRANCH IF NOT 

MAXIMLW DIGITS IN A YEAR 

GET MORE DIGITS IF NOT FOUR YET 

ERROR IF MORE THAN FOUR 

MAX POSSIBLE COWAS 

IF MORE BRANCH 

MAX DIG FOR MONTH-DAY-HOUR-MIN 
GET MORE DIGITS 



.EARS DIGIT STACK ON AN ERROR 
R2. #DIGIT 
7$ 

-(R2) 
6S 



TYPE ERROR MESSAGE 
CLEAR DIGIT STACK 



.71$ 
^Of 

<200>/« 

NEWTIM 

PC 



;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 
►•SYNTAX ERROR******** 



;;EX1T FROM THE ROUTINE 



THE TIME VAlUE IN THE DEVICE REGISTER 



YEAR. RO 

RO. Rl 

#1^7700,R0 

#170077.R1 

Rl 

Rl 

Rl. RO 
«eiT14. aCSR 
RO. aRGO 
PC. RDYBIT 
FLAG.l 



YEAR VALUE 

ALSO IN Rl 

CLEAR ALL BUT #77 

CLEAR ALL BUT #7700 

SHIFT LEFT 

SHIFT LEFT 

RO CONTAINS YEAR VALUE IN DESIRE FORMAT 

SET (SV) YEAR BIT 

VALUE IN THE DEVICE REGISTER 
CHECK FOR READY BIT SET 
IS FLAG SET? 



K 4 

.HAIN. WACrll 30A{1052) ^S-mR-SO 07:40 PAGE 3-12 
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1642 


013752 


001406 








BEQ 


2S 




1643 


013754 


01 7737 


010102 


001122 




MOV 


acsR, 


BADA 


1644 


013762 


104006 








ERROR +6 




1645 


01 3764 


005077 


010072 






CLR 


acsR 




1646 


01 3770 


013700 


024134 




2S: 


MOV 


MONTH. 


RO 


1647 


013774 


042700 


177700 




81 C 


#1 77700. RO 


1648 


014000 


006300 








ASL 


RO 




1649 


014002 


006300 








ASL 


RO 




1650 


014004 


006300 








ASL 


RO 




1651 


014006 


^ 9y\A 

006300 








ASL 


RO 




1652 


014010 


006300 








ASL 


RO 




1655 


014012 


y\y\y v/vy\ 

006300 








ASL 


RO 




1654 


014014 


y\y\> 9/\yN 

006300 








ASL 


RO 




1655 


014016 


y\y\^ 

006300 








ASL 


RO 




1656 


014020 


013704 


024136 






MOV 


DAY. 


R4 


1657 


/%4 J y 

01 4024 


042704 


177700 






81 C 


/irl 77700. R4 


1658 


014030 


050400 








81 S 


R4. 


RO 


1659 


014032 


052777 


4 A^^y\A 

100000 


A4 AA^^ 

01 0022 




BIS 


*8IT15.aCSR 


1660 


014040 


010077 


A4 AA'^A 

01 0020 






MOV 


RO. 


aRGO 


1661 


014044 


004737 


A4 ^A/>A 

01 7000 






JSR 


PC. 


RDYBIT 


(1 ) 


014050 


005737 


A*^ y 1 4 A 

024210 






TST 


FLAG.1 




1662 


^4 / f\c y 

014054 


001405 








BEO 


4$ 




1663 


/\4 y f\c A 

014056 


017737 


A 4 AAA A 

010000 


AA 4 4 

001122 




MOV 


acsR. 


BADA 


1664 


014064 


104007 








ERROR+7 




1665 


n4 y f\j d 

014066 


000455 








BR 


7$ 




A d d 

1666 


014070 


005077 


007766 




y ^ 

4$: 


CLR 


acsR 




1667 


/\4 y i 

014074 


004737 


A 4 7AAA 

01 7000 






JSR 


PC. 


RDYBIT 


/ 4 \ 

(1) 


/\ 4 / 4 A/\ 

014100 


005757 


A^y '^4 A 

02421 0 






TST 


FLA6.1 


1668 


f\A y 4 Ay 

014104 


AA4 Ay ^ 

001046 








BNE 


7$ 




1669 


A4 y 4 Az 

014106 


01 7737 


007752 


Ai y 4 t A 

024150 




MOV 


aRGO, 


DMONTH 


1670 


A4 i A A i 

014114 


A 4 9^AA 

013700 


A'^ y 4 y A 

024140 






MOV 


HOUR. 


RO 


1671 


A4 y 4 

014120 


Ay '^^AA 

042700 


1 77700 






81 C 


#1 77700.ro 




A 4 y 4 ^ y 

014124 


AA^ 9AA 

006300 








ASL 


RO 




1673 


A4 y 4 ^z 

014126 


AA^ 9AA 

006300 








ASL 


RO 




1674 


















1675 


A4 y 4 9 A 

014130 


AAZ 7AA 

006300 








ASL 


RO 




1676 


A4 y 4 

014132 


AAy 9AA 

006300 








ASL 


RO 




1677 


















1678 


A 4 y 4 Vy 

014154 


AAZ 9AA 

006300 








ASL 


RO 




1679 


A 4 y 4 "WA 

014136 


AAy 9AA 

006300 








ASL 


RO 




4 Z OA 

1680 


014140 


AA^ VAA 

006300 








ASL 


RO 




4 V 04 

1681 


014142 


AA> YAA 

006300 








ASL 


RO 




1682 


014144 


A 4 T ^ A y 

013704 


024142 






MOV 


MIN. 


R4 


1683 


014150 


A PA / AA 

050400 








BIS 


R4. 


RO 


1684 


A4 y 4 C ^ 

014152 


ATI ^^'W 

052777 


4 AAAAA 

100000 


AA'^TA'^ 

007702 




BIS 


*8IT15.aCSR 


4 A Of 

1685 


A4 / 4 Z A 

014160 


A 4 AA^^ 

010077 


007702 






MOV 


RO. 


aRG2 


1686 


A 4 y 4 ^ y 

014164 


AA y 

004737 


A 4 ^y\AA 

017000 






JSR 


PC. 


RDYBIT 


y 4 « 

(1) 


A4 y 4 "7 A 

014170 


AA^ 

005737 


A ^ y 4 A 

024210 






TST 


FLA6.1 






U14 1 ^4 


AAi / AC 

001405 








BPA 

BEO 


6$ 




1688 


014176 


017737 


007660 


001122 




MOV 


acsR. 

) 


BADA 


1689 


014204 


104010 








ERR0.'?*1( 




1690 


014206 


000405 








BR 


7$ 




1691 


014210 


017737 


007652 


024152 


6$: 


MOV 


aRG2. 


DHOUR 


1692 


014216 


005077 


007640 






CLR 


acsR 




1693 


014222 


000207 






71: 


RTS 


PC 




1694 



















SEO 0049 



BRANCH IF NO ERROR 

READ CURRENT STATUS OF CSR 

YEAR VALUE MAY BE INVALID 

CLEAR CSR 

MONTH VALUE 

CLEAR ALL BUT #77 

SHIFT 

LEFT 

8 

TIMES 



DAY VALUE IN R4 

CLEAR UNWANTED BITS 

COMBINE MONTH * DAY IN A REG 

SET BIT #15 TO WRITE MONTH*DAY 

VALUE IN DEVICE REGISTER 

CHECK FOR READY BIT SET 

IS FLAG SET? 

.•BRANCH IF NO ERROR 

: CURRENT STATUS OF CSR 



.•CLEAR CSR 

CHECK FOR READY BIT SET 
IS FUG SET? 

.•STORE MONTH+DAY VALUE 

.•HOUR VALUE 

.•CLEAR UNWANTED BITS 

.•SHIFT 

LEFT 



m 0 
« 0 



EIGHT 



TIMES 



;HOUR+MIN IN RO 
.-SET BIT #15 IN CSR 
.-HOUR ♦ MIN IN DEV REGISTER 
CHECK FOR READY BIT SET 
IS FLAG SET? 



.READ HOUR ♦ 
.CLEAR CSR 
.'EXIT 



MIN 
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L 4 

IN THE DEVICE REGISTER 



SEO 0050 



1695 








1696 








1697 








1698 








1699 








1700 








1701 








1702 








1703 








1704 








1705 








1706 
1707 


014224 


012705 


014416 








1708 


014230 


005037 


024156 


1709 


014234 


005037 


024160 


1710 


014240 


005037 


024222 


1711 


014244 


005037 


024174 


1712 


014250 


005037 


024174 


1713 


014254 


005037 


024122 


1 714 


014260 


005037 


024164 


1715 


014264 


014237 


024174 


1716 


014270 


005012 




1717 


014272 


012537 


024164 


1718 


014276 


014237 


024160 


1719 


014302 


005012 




1720 


014304 


162737 


000060 


1721 


014312 


022737 


000000 


1722 


014320 


001406 




1723 


014322 


063737 


024164 


1724 


014330 


005337 


024160 


1725 


014334 


001372 




1726 


014336 


063737 


024156 


1727 


01434<t 


005037 


024156 


1728 


014350 


005337 


024174 


1729 


014354 


001346 




1730 
1''31 


014356 


013746 


024122 


014362 


020227 


024254 


1732 


014366 


001316 




1733 


014370 


012637 


024132 


1734 


014374 


012637 


024134 


1735 


014400 


012637 


024136 


1736 


014404 


012637 


024140 


1737 


014410 


012637 


024142 


1738 


014414 


000207 




1739 


014416 


000001 




1740 


014420 
014422 


000012 




1741 


000144 




1742 


014424 


001 750 




1 743 








1744 








1745 








1746 








1747 








1748 








1749 








1750 


014426 







.S8TTL ROUTINE TO CONVERT DECIMAL TO OCTAL 



DECIMAL TO OCTAL CONVERSION ROUTINE 
STACK CONTAINS ASCII NUMBER 
POINTER TABLE CONTAINS WEIGH 



024160 
024160 

024156 3$: 



024122 4$: 



*P0INTR.R5 

STR 

NIW 

FLAG 

CNT 

CNT 

OCTNUM 
COUNT 
-(R2).CNT 
(R2) 

(R5)+. COUNT 
-(R2),NUM 
(R2) 
*60. 
*0, 
4$ 

COUNT, 
Nl/1 
3$ 
STR, 
STR 
CNT 
2$ 

OCTNUM, 
R2. 

DECOCT 
(SP)+, 
(SP)*, 
(SP)+, 
(SP)+, 
(SP)*, 
PC 



NUM 
Nl/1 

STR 



OCTNUM 



-(SP) 
#DI6IT 

YEAR 
MONTH 
DAY 
HOUR 
MIN 



DECOCT: MOV 

1$: CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
MOV 
CLR 

2$: MOV 
MOV 
CLR 
SUB 
CMP 
BEQ 
ADD 
DEC 
BNE 
ADD 
CLR 
DEC 
BNE 
MOV 
CMP 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 
POJNTR: 1 
12 
144 
1750 



.S8TTL READ TIME OF THE CLOCK 

THIS ROUTINE READ CURRENT TIME OF THE CLOCK 

READ: 



;;R5 CONTAINS STARTING ADDRESS OF THE WEIGH TABL 

.•CLEAR STR 

; CLEAR Nlfl 

.•CLEAR FLAG 

.•CLEAR CNT 

.•CLEAR CNT 

.•CLEAR OCTAL Nl/1 

.•CLEAR COUNT 

;#0F DIGITS IN NLM 

.•CLEAR DIGIT STACK 

.•DECIMAL WEIGHT 

.•DECIMAL Nl/1 

.•CLEAR FROM DIG S^ACK 

;IS IT ZERO 



YEAR VALUE IN OCYAL 
MONTH IN OCTAL 
DAY IN OCTAL 
HOUR VALUE IN OCTAL 
MIN IN OCTAL 
EXIT 
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(1) 014A26 104401 014434 TYPE 

(1) 014432 000426 BR 

(1) ;;65$: .ASCI 2 

(1) 014510 64S: 

1751 014510 104401 001203 TYPE 

1752 014514 012777 000004 007340 HOV 
1755 014522 017700 007336 MOV 

1754 014526 010004 MOV 

1755 014530 042700 177700 BIC 

1756 014534 042704 160077 BIC 

1757 014540 006204 ASR 

1758 014542 006204 ASR 

1759 014544 050400 BIS 

1760 014546 010046 MOV 

1761 014550 104405 TYPDS 

1762 014552 012777 000002 007302 MOV 

1763 014560 017700 007300 MOV 

1764 014564 010004 MOV 

1765 014566 042700 177700 BIC 

1766 014572 042704 160077 BIC 
176^ 014576 006204 ASR 

1768 014600 006204 ASR 

1769 014602 050400 BIS 

1770 014604 010046 MOV 

1771 014606 104405 TYPDS 

1772 014610 005077 007246 CLR 

1773 014614 017700 007244 MOV 

1774 014620 010001 MOV 

1775 014622 042700 170077 BIC 

1776 014626 006200 ASR 

1777 014630 006200 ASR 

1778 014632 006200 ASR 

1779 014634 006200 ASR 

1780 014636 006200 ASR 

1781 014640 006200 ASR 

1782 014642 006200 ASR 

1783 014644 006200 ASR 

1784 014646 010046 MOV 
V85 014650 104405 TYPDS 

1786 014652 042701 177700 BIC 

1787 014656 010146 MOV 

1788 014660 104405 TYPDS 

1789 014662 005077 007174 CLR 

1790 014666 017700 007174 MOV 

1791 014672 010001 MOV 

1792 014674 042700 160377 BIC 

1793 014700 006200 ASR 

1794 014702 006200 ASR 

1795 014704 006200 ASR 

1796 014706 006200 ASR 

1797 014710 006200 ASR 

1798 014712 006200 ASR 

1799 014714 006200 ASR 

1800 014716 006200 ASR 

1801 014720 010046 MOV 

1802 014722 104405 TYPDS 



H 4 



e CLOCK 

.65$ 
64S 

<200>/ 



SEO 0051 



YR 



.SCRLf 

4BIT2. aCSR 

aRGO, RO 

RO. R4 

#1?7700,R0 

#160077,R4 

R4 

R4 

R4, RO 
RO. -(SP) 

*BIT1. aCSR 

aRGO. RO 

RO. R4 

#177700.R0 

#160077.R4 

R4 

R4 

R4. RO 
RO. -(SP) 

aCSR 

aRGO. RO 

RO, R1 

#1 70077.ro 

RO 

RO 

RO 

RO 

RO 

RO 

RO 

RO 

RO. -(SP) 

#t77700,R1 
R1. -(SP) 

acsR 

aRG2. RO 

RO. R1 

#1 60377.ro 

RO 

RO 

RO 

RO 

RO 

RO 

RO 

RO 

RO. -(SP) 



;;TYPE ASCIZ STRING 
;;6ET OVER THE ASCIZ 
JD MO DA HR 



MI 



SE/ 



READ YEAR 

READ VALUE IN RO 

ALSO IN R4 

CLEAR ALL BUT #77 

CLEAR ALL BUT #17700 

SHIFT RIGHT 

SHIFT RIGHT 

IN OCTAL 

NUMBER TO BE PRINTED ON STACK 

READ JULIAN DAY 

READ VALUE IN RO 

ALSO IN R4 

CLEAR ALL BUT #77 

CLEAR ALL BUT #17700 

SHIFT RIGHT 

SHIFT RIGHT 

IN OCTAL 

NlfCER ON STACK 

CLEAR CSR 
READ MONTH^^DAY 
ALSO IN R1 
CLR ALL BUT 7700 
SHIFT 

RIGHT 

EIGHT 

TIMES 



OCTAL NIM ON STACK 

CLEAR ALL BUT 077 
OCTAL NUM ON STACK 



HOUR VALUE 

FOR MINUTE 

CLEAR UNMANTED BITS 

SHIFT 

RIGHT 

EIGHT 



OCTAL NIM ON STACK 



TIMES 
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READ TI«E OF THE CLOCK 



N A 



1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
18K 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
(1) 
(1) 
(1) 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
(1) 
(1) 
(1) 
(1) 
1834 
1835 
1836 
1837 
1838 
1839 
18/.0 
1841 
1842 
1843 
1844 
(1) 
(1) 
(1) 
(1) 
1845 
1846 
1847 



014724 
014730 
014732 
014734 
014736 
014742 
014746 
014750 
014752 



014754 
014754 
014760 

015004 
015004 
015006 
015010 
015014 
015016 
015022 
015024 
015030 
01 5032 
015036 

015042 
015042 
015046 

015074 
015074 
015076 
015100 
015104 
015106 
015112 
015114 
015120 
015122 
015126 
015130 
015130 
015134 

015212 
015212 
015216 



042701 
010100 
010046 
104405 
017700 
042700 
010046 
104405 
000207 



104401 
000411 



104411 
013604 
022704 
001412 
022704 
001403 
022704 
001365 
004737 
000137 



104401 
000412 



104411 
013604 
022704 
001411 
022704 
001403 
022704 
001365 
004737 
000433 

104401 
000426 



004737 
000207 



177700 



007126 
017700 



014762 



000116 

000131 

000000 

015360 
015216 

015050 



000116 
000131 
000000 
015220 

015136 
015554 



8IC 
NOV 

nov 

TVPDS 

nov 

BIC 

nov 

TVPDS 
RTS 



#1 77700, Rl 
R1. RO 
RO. -(SP) 

aRG4. RO 
#17760. RO 
RO. -(SP) 

PC 



.-.-OCT ON STACK 

;;READ SECOND 

;; CLEAR ALL BUT #77 

.-.OCTAL NJ^ ON STACK 



THIS ROUTINE TESTS THE ACCURACY OF CLOCK. 
IF THERE IS AN ERROR, IT WILL PRINT ERROR 
MESSAGE 



A.CLK: 





TyPE 


,65$ 






BR 


64$ 




;;65$: 
64S: 


.ASCI2 


<200>/L-CLK 








IS: 


RDLIN 








MOV 


a(SP)*, 


R4 




CMP 


/rli6. 


R4 




BEQ 


3$ 






CMP 


#131, 


R4 




BEO 


2$ 






CMP 


#0, 


R4 




BNE 


1$ 




2S: 


JSR 
JMP 


PC, 
7$ 


L.CLK 



;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 
(L) N?/ 



IS THERE ANY CHAR 
GET CHARACTER 
IS IT 'N'? 

BRANCH IF L-CLK NOT THERE 

IS IT 'Y' 

BRANCH IF 'Y* 

IS IT 'CR*? 

NO'BR 

COMPARE THE CLK WITH L.CLK 
JIMP TO RETURN 



3$: 



;;67$: 

66$: 

4$: 



5$: 
6$: 



;:69$: 
7$: 



TYPE 
BR 

.ASCII 

RDLIN 

MOV 

CMP 

BEO 

CMP 

BEQ 

CMP 

BNE 

JSR 

BR 

TYPE 
BR 

.ASCIZ 

JSR 
RTS 



,67$ 
66$ 

<200>/P-CLOCK 



a(SP)*. R4 



;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 
(L) N?/ 



#116. 
6S 

#131. 
5$ 
#0. 
4$ 

%■ 



R4 

R4 
R4 

P. CLK 



GET CHARACTER IN R4 
IS IT 'N'? 

GO GET MANUALLY TIME BASE 

IS IT 'Y'? 

YES:BR 

IS IT 'CR'? 

NO:BR 

USE P. CLK AS TIME BASE 
BRANCH TO RETURN 



,69$ ;;TYPE ASCIZ STRING 

68$ ;;6ET OVER THE ASCIZ 

<200>/*TYPE TWO CHARACTERS AT 60 SECONDS APART'/ 



PC, 
PC 



NO. CLK 



; .-RETURN 
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18^8 

1849 

1850 

1851 

1852 

1853 

185A 

1855 

1856 

1857 

1358 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 
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READ TI«E OF THE CLOCK 



B 5 



SCO 0053 



THIS ROUTINE COMPARES KWllC CLOCK WITH 
KWll-P CLOCK FOR ACCURACY OF KUH-C CLOCK. 
IT PRINTS HARD ERROR IF CRYSTAL OSCILLATOR 
NOT ACCURATE. 



015220 


010046 






P.CLK: 


nov 


RO, 


-(SP) 


01 5222 


010246 








nov 


R2. 


-(SP) 


01 5224 


010446 








MOV 


R4. 


-(SP) 


015226 


012704 


015350 






MOV 


fP.TAB, 


R4 


015232 


012702 


000002 






nov 




R2 


015236 


012777 


000010 


006616 


IS: 


MOV 


#l6. 


acsR 


015244 


012737 


000144 


172542 




MOV 


#144, 


PKBUF 


015252 


012777 


01,7777 


006610 




MOV 


Mi*77>7. 


aRG4 


015260 


012737 


000003 


172540 




MOV 


#3. 


PKCSR 


A1 C 

01 








2». 


BIT 


#BIT7, 


PKtSR 


015274 


001774 








BEO 


2$ 




015276 


017700 


006566 






MOV 


WG4, 


RO 


015302 


005302 








DEC 


R2 




015304 


001354 








BNE 


IS 




015306 


010037 


015346 






MOV 


RO, 


P.CNT 


015312 


023724 


015346 




3$: 


CMP 


P.CNT, 


(R4)* 


015316 


001405 








BEO 


4S 




015320 


020427 


015356 






CMP 


R4, 


#P.END 


015324 


003772 








BLE 


3S 




015326 


104033 








ERROR+33 




015330 


000402 








BR 


5S 




015332 


104401 


027353 




4S: 


TYPE 


,PASMS6 




015336 


012604 






5S: 


MOV 


(SP)*. 


R4 


015340 


012602 








MOV 


(SP)*, 


R2 


015342 


012600 








MOV 


(SP)*, 


RO 


015344 


000207 








RTS 


PC 




015346 


000000 






P.CNT: 


00 






015350 


007753 






P.TA8: 


7753 






015352 


007752 








7752 






015354 


007754 








7754 






015356 


Mini 






P. END: 


M7777 







0153t.O 
01530^; 
015364 
015366 
015372 
015376 
015404 
015412 



010046 
010246 
010446 

012704 015534 
012702 000002 
012777 000010 
012777 047777 
005037 177546 



006456 
006456 



L.CLK: MOV 
MOV 
MOV 
MOV 
MOV 

1$: MOV 
MOV 

CLR 



RO, -<SP) 
R2. -<SP) 
R4, -(SP) 
#L.TAB1,R4 
#2- R2 

#10, acsR 
#47^77, aRG4 
LKS 



STORE RO 

R2 

R4 

POINTER TO P. TABLE 
COUNTER IN R2 

SET BIT READ TIME INTERVAL 
COlfJTER EOUIV TO 100. 
SET TIME INTERVAL COUNTER 
SET RATE SELECT AND RUN BIT 
IS DONE BIT SET? 
NO:LOOP AROUND 
READ DEL TAT REGS 

BRANCH IF NOT ZERO 
GET DELAT T COUNTER 
COff»ARE WITH EXPECTED 

END OF TABLE? 
NO:BR 

HARD ERROR: CRYSTAL SEEMS TO BE 

THE CLOCK PASS THE RELATIVE ACCURACY TEST 



THIS ROUTINE COMPARES KUll-C CLOCK 
WITH L-CLOCK FOR ACCL»IACY. 
IT PRINTS AN ERROR IF CRYSTAL OSCILLATOR 
IS NOT ACCURATE. 



POINTER TO THE TABLE 
COlfJTER 

SET BIT TO READ DELTA f 
SET COUNTER IN DELTA T 
CLEAR STATUS OF L.CLK 



INTVL 
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READ TI«E Of THE ClOCK 



1904 

1905 

1906 

1907 

1908 

1909 

1910 

1911 

1912 

1913 

19U 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

194? 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 



015416 
015424 
015426 
015432 
015434 
015436 
015442 
015450 
015452 
015456 
015460 
015464 
015466 
015470 
015472 
015476 
015502 
015504 
015510 
015512 
015514 
015516 
015522 
015524 
015526 
015530 

015532 
015534 
015536 
015540 
015542 
015544 
015546 
015550 
015552 



015554 
015560 
015564 
015566 
015574 
015600 
015606 
015612 
0156^0 
015622 
015626 
015632 
015636 



032737 

001774 

017700 

005302 

001360 

010037 

022737 

001410 

023724 

001417 

020427 

003766 

104033 

000414 

012704 

023724 

001405 

020427 

003772 

104033 

000402 

104401 

012604 

012602 

012600 

000207 

000000 
007735 
007736 
007734 
M7m 
007727 
007730 
007726 
1 77777 



005037 
105777 
100375 
117737 
005077 
Q}2777 
104401 
032777 
001404 
005077 
005237 
105777 
100365 



000200 
006436 

015532 
000062 

015532 

015542 



015544 
015532 

015552 



027353 



015722 
163360 

163354 
006262 
047640 
024250 
040000 

006234 
015722 
163306 



177546 2S: 



024242 3S: 



4S: 
5$: 



6S: 
7$: 



, CNT : 
. TABl : 



L.ENDl: 
L.TA82: 



L.END2: 



BIT 
BEQ 

nov 

DEC 
BNE 
MOV 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BLE 
ERRORS 
BR 
MOV 
CMP 
BEQ 
CMP 
BLE 
ERROR* 
BR 
TYPE 
MOV 
MOV 
MOV 
RTS 

00 

7735 

7736 

7734 

y77777 

7727 

7710 

772h 

1 77777 



33 



*Bi'T7. 
2S 

R2 

IS 

RO. 

#6^, 

4S 

L.CNT, 
6S 
R4, 
3$ 



C 5 

LKS 
RO 

L.CNT 
HZ 

(R4)* 
#L.EN01 



33 



*L.TA82, 
L.CNT, 
6S 
RA. 
5$ 

5 

7$ 

,PASMSG 

CSP)*, 

(SP)*, 

(SP)*, 

PC 



R4 

(R4)* 
#L.END2 



R4 
R2 
RO 



THIS ROUTINE IS USED TO GET SOME BASE 
FOR TIME. CHARACTERS TYPED MUST BE 
VERY ACCURATE AS IT IS USED TO DETERMINE 
THE ACCURACY OF CLOCK 



NO.CLK: 
1$: 



024250 
006262 
006242 2$; 



3$: 



CLR N.CNT 

TST8 a$TKS 

BPL IS 

M0V8 aSTKB, ECHGBl 

CLR acsR 

MOV #47640, aRG4 

TYPE . ECHOBl 

BIT ienU, 8CSR 

BEQ 3S 

CLR aCSR 

INC N. CNT 

TSTB aSTKS 

BPL 2S 



SEO 0054 

FLAG SET? 
N0:BR 

READ DELTA T COUNTER 
DEC R2 

8R IF NOT ZERO 
GET DELTA -T 
WHAT FREO? 
BR IF 50HZ 

COMPARE WITH TABLE FOR 60HZ 

EXIT IF EQUAL 

IS IT END OF TABl 

NO:BR 

CRYSTAL OSCILLATOR NOT ACCURATE 
EXIT 

PONTER TO THE TABLE 
EXIT 

END OF TABLE? 
NO:BR 

OSCILLATOR NOT ACCURATE 
EXIT 

THE CLOCK PASSED THE RELATIVE ACCURACY TEST 
RESTORE 



TO STORE 2MIN INTVL CONSTANT 
IS THERE A C»iAR? 
NO:WAIT FOR A CHAR 



GET TIME CONST FOR 2 SEC 

ECHO THE CHAR 

IS BIT SET IN CSR? 

NO:aR 

CLEAR BIT SET 

SO MANV TIMES 2 SEC INTERVAL 

ANOTHER CHAR? 

NO:BR 
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READ TIME Of THE CLOCK 



1%0 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1962 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 



015640 
015646 
015654 
015660 
015664 
015670 
015672 
015676 
015700 
015702 
015704 
015710 

015712 
015714 
015716 
015720 
015722 
015724 



015726 
015730 
015734 

015740 
01574^ 
015750 

015752 
015754 
015756 
015762 
015770 
015772 
015776 



017737 

017737 

104401 

012704 

023724 

001405 

020427 

003772 

104033 

000402 

104401 

000207 

000036 
000037 
000035 
1 77777 
000000 
000000 



010246 
005037 
005037 

013702 
005737 
001023 

005302 
001376 
005237 
023727 
001363 
005037 
00S237 



006224 
163274 
02425C 
015712 
015722 

015720 



027353 



016024 
016026 

024054 
024212 



016024 
016024 

CI 6024 
016026 



015724 
024250 



»^G4, 

aSTKB, 

.ECH0B1 

#TA8. 

N.CNT. 

5$ 

P4. 

4$ 



D 5 



N.CON 

ECH0B1 

R4 

(R4)* 
#TAB.EN 



SEO 0055 



.-.-READ TIME INT REG 
;;GET CHAR 



ADDRESS OF TABLE 
COMP WITH NUM IN TAB 



;;THE CLOCK PASSED THE RELATIVE ACCURACY TEST 



MOV 
MOV 

TYPE 
MOV 

4$: CMP 
BEQ 
CMP 
BLE 

ERRaR+33 
BR 6$ 
5$: TYPE .PASMSG 
6$: R1S PC 

TAB: 36 
37 
35 

TAB. EN: ^77777 
N.CNT: 00 
N.CON: 00 



THIS IS TABLE DRIVEN ROUTINE, IT TESTS INVALID VALUE OF MONTH+DAY 



IHIS ROUTINE WAITS FOR AN INTERRUPT 

IT ALSO PRINTS AN ERROR MESSAGE IF NOT INTERRUPTED 



003720 



INTRTN: 


MOV 
CLfi 
CLR 


R2. -(SP) 

CONT 

C0NT1 


;; CLEAR LOCATION 
;; CLEAR LOCATION 


1$: 


MOV 
TST 
BNE 


C0NST.R2 
FLAG. 2 
4S 


;;TIME CONSTANT 

;;IS INTERRUPT OCCURED? 

;; YES. EXIT 


2$: 


DEC 
BNE 
INC 
CMP 
BNE 
CLR 
INC 


R2 
2S 

COTtlT 

CONT. #3720 
IS 

CONT 
C0NT1 


;; DECREMENT COUNT 
;. -BRANCH IF NOT ZERO 

■•2000 DECIMAL 

;, -BRANCH IF NOT EQUAL 

••ANOTHER COUNTE" 
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016002 
016010 



1353 



07:40 PAGE 4 

READ TIME OF Tf€ CLOCK 



016026 016030 



BNE 



C0NT1. TIMES 
IS 



016C12 
016020 
016022 

016024 
016026 
016050 



017737 
01 260 
00020 



oooooc 

000000 
000000 



006044 024120 



4t: 



CONT: 

C0NT1: 

TIMES: 



MOV 
MOV 
RTS 

0 
0 

00 



aCSR, ACSR 
(SP)*. R2 
PC 



.DESIRE TIME EXPIRED? 

.INTERRUPT FAIL TO OCCUR 
;IF FLAG. 2=0 
.STATUS OF CSR 
.RECOVER R2 
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CZryLA.PU 15-«AR-80 07:59 READ TI«E OF THE CLOCK 



F 5 



2025 


















2026 










;TH!S 


IS WAIT 


ROUTINE 




2027 


















2028 


016032 


010246 






UAjr- 


MOV 


R2. 


-(SP) 


2029 


016054 


005037 


016102 






CLR 


C0NT2 




2030 


016040 


013702 


024054 




1$: 


MOV 


CONST, 


R2 


2031 


















2032 


016044 


0C5302 






2$: 


DEC 


R2 




2033 


016046 


001 376 








BNE 


2$ 




2034 


016050 


005237 


016102 






INC 


C0NT2 




2035 


016054 


023727 


016102 


003720 




CMP 


C0NT2. 


#3720 


2036 


016062 


001366 








BNE 


1$ 




2037 


016064 


005037 


016102 






CLR 


C0NT2 




2058 


016070 


005337 


016104 






DEC 


C0NT3 




2039 


016074 


001361 








BNE 


IS 




2040 


016076 


012602 








MOV 


(SP)*. 


R2 


2041 


016100 


000207 








RTS 


PC 




2042 


016102 


000000 






C0NT2: 


0 






2043 


016104 


000000 






C0NT3: 


0 






2044 


















2045 


















?046 










* 

CNTLC: 








2047 


016106 


105777 


163032 




TST8 


aSTKS 




2048 


016112 


100016 








BPL 


2S 




2049 


016114 


117746 


163026 






M0V8 


aSTKB, 


-(SP) 


2050 


016120 


042716 


1 77600 






SIC 


#*C177. 


(SP) 


2051 


016124 


022716 


000003 






CMP 


#3. 


(SP) 


2052 


016130 


001003 








^E 


1$ 




2053 


016132 


005726 








TST 


(SP)* 




2054 


016134 


000137 


003530 






JMP 


RESTRT 




2055 


016140 


022726 


000007 




1$: 


CMP 


»7. 


(SP)* 


2056 


016144 


001001 








BNE 


2S 




2057 


016146 


104406 








GTSUR 






2058 


016150 


000207 






2S: 


RTS 


PC 




2059 


















2060 










* 








2061 










* 

DFLAV: 








^062 


016152 


010246 






MOV 




-(SP) 


2063 


016154 


010346 








MOV 


R3. 


-(SP) 


2064 


016156 


012703 


000004 






MOV 


#A. 


R3 


2065 


016162 


013702 


024054 




1$: 


MOV 


CONST, 


R2 


2066 


016166 


005302 






2$: 


DEC 


R2 


2067 


016170 


001376 








BNE 


2$ 




2068 


016172 


005303 








DEC 


R3 




2069 


016174 


001372 








BNE 


IS 




2070 


016176 


012603 








MOV 




R3 


2071 


016200 


012602 








MOV 




R2 


2072 


016202 


000207 








RTS 


PC 














. Til f t* 

; THIS 


ROUTINE 


UAITS FOR 


A SE 


2074 










WAIT2: 








2075 


016204 


013777 


016224 


005656 


MOV 


TCNT. 


aRG4 


2076 


016212 


032777 


040000 


005642 


IS: 


BIT 


*8J TU. 
IS 


acsR 


2077 


016220 


001774 








BEO 




.'0^8 


016222 


000207 








RTS 


PC 




2079 


01e>224 


000000 






TCNT: 


0000 






2080 










* 









;GET CONSTANT FOR 0.5MSECOND 

DECREMENT CONST 
LOOP BACK TILL ZERO 

EQUIVALENT TO 2000 
GO BACK IF NOT 1 SEC 



LOOP BACK IF TIME QUANTOM NOT EXPIRED 
RECOVER R2 

EXIT FROM SUB ROUTINE 



IS THERE A CHARACTER? 
NO: DON'T WAIT 
STORE CHAR ON STACK 
STRIP OFF THE ASCII 
IS IT CONTROL C? 
NO: EXIT 



;IS IT CONTROL G? 
;N0:8R 



SAVE R2 
SAVE R3 

GET CONSTANT 
COUNT DOWN 

BRANCH IF NOT ZERO YET 



RESTORE REGISTER 
RESTORE R2 
RETURN 



SET COtWTER TO WAIT 
IS BIT14 SET? 
NO'BR 

DESIRED TIME EXPIRED RtTURN 
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G 5 



';EQ 0058 













?L>82 










<r083 










<:0B;> 










016226 


010246 








A 1 ^ 0 7A 


/V%C AT7 








A1 ^'37/ 




Al ^ 




OADD 

<:0oo 


A1 ^ O/ A 


AT0777 


AAAAA-f 

OOOOO' 


AACZ 1 y 

005614 




U16t*i6 


001 4i?^ 






d\rrJ 


A1 AOCA 

016250 


Ai T7AO 
0 1 5/02 


Aoy Acy 

024054 






A1 ^OC/ 


/V^CTAO 

OOo30<: 






c\rfd 


Al ^OC^ 

016256 


AA1 T7Z 

001 3/6 








A1 Z.OZJ^ 

016260 


00523/ 


Ai Z T^A 

016320 






A1 

01626h 


A0T707 

025/2/ 


A 1 Z "7 OA 

016520 


AAT 7 OA 

005/20 




A1 ^070 

0162^^2 


AA1 T^O 

001362 








A1 X.07/ 


AA5 AT7 

00503/ 


A1 ATOA 

0163^0 




c\rrf 


A1 iLli ^ 

016300 


/\AC 0T7 

005^3/ 


Al Z-TOO 

0163*:*: 






A1 AT/V/ 

016jO*» 


A0T707 

023/2/ 


A1 Z700 

0165^^ 


AAAAAC 
000005 


jnoo 
c\rrr 


A1 iL.71 0 

01631c 


/\A1 TCO 

001 35^ 






01 AA 


A1 iCTI / 

01631'* 


Al 0/.AO 

012602 






01 ni 

lU 1 


Al / T1 z. 

01o316 


AAA0A7 

OOOcO/ 






0 1 no 










01 TiT 


A 1 A 7 OA 

0103C0 


A/AAAAA 
000000 






01 A/ 


Al ATOO 

0163cc 


AAAAAA 
000000 






01 A<; 
c 1 Uo 










0 1 










31 07 










01 nfl 










01 no 










01 1 n 










0111 










01 1 0 










0117 










011/ 


Al A70/ 


AT0777 


AOAAAA 

0<rOOOO 


AAC5 3tA 

0055 50 


01 1 ^ 
f M 0 


m A7 (0 
0I633£ 


fv\^/ 1 1 






01 1 *. 
C MO 


Al ATT/ 


Al 0777 


A/\A/V\A 

000000 


AAC coo 

00552c 


5117 


U I03*»c 


A/V 7T7 
00^' 3/ 


017000 


^ 1 \ 


AIAI/ A 
U I03*«0 


AA^7T7 
005/3/ 


AO/ 01 A 

024<: 10 




01 1 B 


ni AT^o 


/\Al AA1 

OOlOOl 




01 1 Q 


ni AT^z 

U I035*» 


A/W Al 






01 on 


ni ATCA 


Al 0777 

\}\Cf I I 


1 / AAAA 
ImOOOO 


AACy 7A 
005*»^6 


01 ?1 


ni AT>u. 

U I030*» 


Al 0777 


Al 7n7T 

U 1 /U/ 3 


AACy 70 


01 30 


ni AT70 
U I03f c 


r\r\j 7T7 
00^/3/ 


A1 7AAA 
01 /UOO 




\ \ 1 


m AT7A 

U103/^6 


/^n<;7T7 

005/3/ 


AO/ 01 A 

0c4^10 




01 OT 


016*i0e 


AA1 /.ZA 

00l*»*»6 




01 0/ 

etc** 


U16*i0*» 


A1 0777 
Ulc/ / / 


f\J AAAA 

040000 


AACy CA 

005450 


o: o< 


A1AZ1 0 

016*»1 c 


A1 0777 


A1 7A7T 

01 /0/3 


0054A4 


01 OA 


/Sl A/ OA 

oi6h<;u 




Al 7AAA 
01 /OOO 














2127 


016430 


001026 






2128 


016432 


0}277? 


100000 


005422 


2129 


016440 


012777 


000401 


005416 


2130 


016446 


004737 


017000 




(1) 


016452 


005737 


024210 




2131 


016456 


001013 






2132 


016460 


OUT?? 


100000 


005374 



THIS ROUTINE UAITS FOR HOLD BIT TO RESET IN TI«E(3 SECOND) 
THIS ROUTINE GETS CONTRa FROM KAIN ROUTINE AND EXITS 
IN MAIN ROUTINE IN ANY CASE 



UAITl 

1$: 

2S: 



3$: 



C0NT4: 
C0NT5: 



MOV 

CLR 
CLR 
BIT 
BEQ 
MOV 
DEC 
BNE 
INC 
CMP 
BNE 
CLR 
INC 
CMP 
BNE 
MOV 
RTS 

0 
0 



R2, -(SP) 

C0NT4 

C0NT5 

481 TO, aCSR 
3S 

CONST, R2 

R2 

2$ 

C0NT4 

C0NT4, #3720 
IS 

C0NT4 
C0NT5 

C0NT5, #5 
IS 

(SP)*. R2 

PC 



IS (HOLD BIT) RESET? 

RETURN IF SET 

CONSTANT FOR 0.5SEC 

DECREMENT CONST UNTIL 0.5 SECOND 

GET COUNTER FOR NUMBfi OF 0.5 SEC 

EQUIVALENT TO 1 SECOND 

BRANCH IF SET 

INITIALIZE COUNTER 

COUNT NO OF SEC 

IS IT 5 SECOND YET? 

BRANCH IF NOT 3 SEC YET? 

RECOVER R2 



THIS ROUTINE GETS CONTRa WHEN READY BIT FAILS TO SET. 
IN THIS ROUTIf« VALID VALUES OF MONTH+DAY AND 
HOUR+MINUTE IS SET WHICH SUPPOSE TO SET READY BIT 
IN CSR. 

IF READY BIT FAILS TO SET PROGRAM HALTS. 
IF READY BIT SETS PROGRAM GOES TO CALLER. 



GETRDY: 



GET1 



GET2: 



BIT 


*8IT13, 


acsR 


BEG 


GET1 




MOV 


#0. 


aRGO 


JSR 


PC. 


ROYBI T 


TST 


FLAG.1 




BNE 


GET1 




BR 


GET4 




MOV 


*8IT15*BIT14.aCSR 


MOV 


#17073. 


aRGO 


JSR 


PC. 


RDYBIT 


TST 


FLAG.1 




BEG 


6ET4 




MOV 


#8IT14, 


acsR 


MOV 


#17073. aRGO 


JSR 


PC. 


RDYBIT 


TST 


FLAG.1 




BNE 


GET3 




MOV 


#8IT15. 


acsR 


MOV 


#401. 


aRGO 


JSR 


PC. 


RDYBIT 


TST 


FLAG.1 




BNE 


GET3 




MOV 


#BIT15. 


acsR 



IS 'M' BIT SET? 

BRANCH IF CLEAR 

SET READY BIT 
CHECK FOR READY BIT SET 
IS FLAG SET? 

TRY OTHER WAY TO SET RDYBIT 

EXIT IF READY BIT IS SET 

SET BIT15 AND BIT14 TO GET RDYBIT SET 

SET YEAR 
CHECK FOR READY BIT SET 
IS FLAG SET? 

EXIT IF SET 

SET VALID YEAR 

SET YEAR 
CHECK FOR READY BIT SET 
IS FLAG SET? 

BRANCH IF READY BIT NOT SET 

SET (ST) TIME 

SET 1 -JANUARY IN RGO 
CHECK FOR READY BIT SET 
IS FLAG SET? 

.•BRANCH TO HALT IF RDY DIDN'T SET 
;SET TIME (BIT15) IN CSR TO SET 



.MAIN. nACni 30A(1052) 13-«A«-80 07 
13-#1AR-80 07:59 



:40 PAGE 5-2 
READ TIME OF 



THE CLOCK 



?1?3 
2154 
2155 
(1) 
2156 
2157 
2158 
2159 
2U0 
2K1 
2K2 
2145 
2U4 
2U5 
2U6 
2U7 
2K8 
2K9 
2150 
2151 
2152 
2153 
2104 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
(1) 
(1) 
(1) 
2164 
216*. 
2166 
2167 
2168 
2169 
2170 
(1) 
(1) 
(1) 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
(1) 
(1) 
(1) 
^178 



016466 
016474 
016500 
016504 
016506 
016514 
016516 
016520 



016522 
016526 
016552 
016540 
016546 

016550 
016552 
016554 
016556 



012777 
004757 
005757 
001405 
017737 
104002 
000000 
000207 



004757 
010437 
017757 
017757 
000207 

000000 
000000 
000000 
000000 



005372 
005550 001122 



000000 
017000 
0242^0 



GET5: 
GET4: 



JSR 

rsT 

BEO 
MOV 

ERR0R*2 

HALT 

RTS 



016152 
016554 
005352 
0055^6 



01655C 
001122 



♦0. 

PC. 

FLA6.1 
GET4 

acsR. 



PC 



PC, 
R4. 
iRG4, 

acsR, 

PC 



H 5 



aRG? 

RDVBIT 



BAOA 



SEJ 0059 



DELAY 
PRE SEC 
SECOND 
BADA 



GETTJM: JSR 
MOV 
MOV 
MOV 

RTS 

SECOND: 00 

DEL TAT: 00 

PRE SEC: 00 

PREDLT: 00 



THIS ROUTINE WILL CAUSE 'M' BIT TO SET 
IT WILL PRINT ERRW If 'M* BIT OR/AND (DIE) 
BIT DIDN'T SET IN CSR WHILE SETTING PRESET 
VALUE 



;HOUR;MINUTE 

;0 HOUR*0 MINUTE 

CHECK FOR READY BIT SET 

IS FLAG SET? 

.•BRANCH TO RETURN 

.GET STATUS OF CSR 

.'HARD ERROR: READY BIT FAIL TO SET 

.•RETURN TO CALLER 



WAIT FOR A WHILE 

PREVIOUS SECOND 

READ CURRENT VALUE OF SECOND 

READ STATUS OF CSR 



016560 


005077 


005276 




INI PRE: CLR 


aCSR CLEAR CSR 


016564 


012777 


000000 


005272 


MOV 


#0, aRGO 


.•PRESET MONTH^DAY 


016572 


012757 


077777 


024052 


MOV 


#77777. COUNTR 


.•DELAY LOOP SETUP 


016600 


004737 


017206 




JSR 


PC. DMT 


.•DEAD MAN TIMER ROUTINE 


016604 


032777 


100000 


005250 


BIT 


*BJT15,aCSR 


;IS DE BIT SET 


016612 


001772 






BEQ 


.-12 


.-TRY AGAIN 


016614 


005737 


024210 




TST 


FLAG.1 


;IS (DE) BIT SET IN CSR? 


016620 


001056 






BNE 


IS 


.■BRANCH IF NOT SET 

;JS 'M' BIT SET IN CSR? 


016622 


052777 


020000 


005252 


BIT 


#BIT15. acsR 


016630 


001057 






BNE 


2S 


.•BRANCH IF SET 


01665? 


005077 


005224 




CLR 


acsR 


.•CLEAR CSR 


016636 


012777 


105225 


005222 


MOV 


#1 05225. aRG2 ': 


;PRESET HOUR+MIN 


016644 


012737 


077777 


024052 


MOV 


M77777 XOUHJR 


.•DELAY LOOP SETUP 


01o652 


004737 


017206 




JSR 


PC. DMT 


;DEAD MAN TIMER ROUTINE 


016656 


032777 


100000 


005176 


BIT 


«Bin5«aCSR 


;IS DE BIT SET 


016664 


001772 






BEO 


.-12 


.TRY AGAIN 


016666 


005737 


024210 




TST 


FLA6.1 


;IS (DE) BIT SET? 


016672 


001051 






BNE 


1$ 


.-BRANCH If (OE) BIT NOT SET 
;IS 'M' BIT SET? 


016674 


012777 


020000 


005160 


BIT 


«8in3. acsR 


016702 


001052 






BNE 


2$ 


.•EXIT IF SET 


016704 


005077 


005152 




CLR 


acsR 


.CLEAR CSR 


016710 


012777 


000000 


005152 


MOV 


#0. aRG4 


.PRESET SECOND 


016716 


012737 


077777 


024052 


MOV 


#77777. COUNTR 


;D£UY LOOP SETUP 


016724 


004757 


017206 




JSR 


PC. DMT 


.-DEAD MAN TIMER ROUTINE 


016750 


052777 


100000 


005124 


BIT 


#BIT15.aCSR 


;IS DE BIT SET 


016736 


001772 






BEO 


.-12 


.-TRY AGAIN 


016740 


005737 


024210 




TST 


FLA6.1 


;IS (DE) SET? 



.•VMN. MAC VII 50A(1052) 13-W-80 
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07:40 PAGE 5-3 

WAD TI»C OF THE CLOCK 



I 5 



SfO 0060 



2179 

2180 

2181 

2182 

2183 

21 84 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2^34 



016744 
016746 
016754 
016756 
016764 
016766 
016770 
016776 



001004 
032777 
001005 
017737 
104030 
000000 
012777 
000207 



020000 
005100 



005106 
001122 1$: 



000000 005064 2S: 



BNE 
BIT 
BNE 

nov acsR, 

ERR0R*30 
HALT 

flOV #0, 

RTS PC 



It 

*8IT13. iCSR 
2S 

BAOA 



3CSR 



;BRANCH IF NOT 

;IS BIT SET? 

;8RANCH IF SET 

;READ STATUS OF CSR 

;'«'8IT OR (DE) BIT FAIL TO bEI 

.CLEAR CSR 
:EXIT 



DEAD "MN TIMER 



017000 


005057 


024210 




RDrBI T : 


CLR 


FLAG.1 






017004 


012737 


Q77777 


024052 




MOV 


1177777. 


COLWTR 


;SET UP LOOP COUNTER 


017012 


032777 


000200 


00504? 


IS: 


BIT 


miT7, 


acsR 


;IS READY BIT SET IN CSR? 


017020 


001006 








BNE 


2$ 




.•BRANCH IF SET 


017022 


005337 


024052 






DEC 


COUNTR 




.•DECREMENT LOOP COUNTER 


01 7026 


001371 








BNE 


IS 




;TRY AGAIN 


017030 


012737 


000001 


024210 




MOV 


#1. 

PC 


FLAG.1 ; 


.-SET FLAG : READY BIT NOT SET 


017036 


000207 






2$: 


RTS 




.EXIT 



017040 


010446 




RDrCKl: 


MOV 


R4, -(SP) 


01 70^.2 


012704 


000005 




MOV 


»S. R4 


017046 


005037 


024210 




CLR 


FLA6.1 


017052 


012737 


077777 024052 


3t: 


MOV 


#77777. COUNTR 


017060 


017746 


004776 


IS: 


MOV 


aCSR- -(SP) 


017064 


042716 


057577 




BIC 


#575^7, (SP) 


017070 


022726 


120200 




CMP 


*81 T1 5*81 T1 3*81 T7 . (SP) ♦ 


017074 


001407 






BEO 


2$ 


01 7076 


005337 


024052 




DEC 


COUNTR 


017102 


001366 






BNE 


IS 


017104 


005304 






DEC 


R4 


017106 


001361 






BNE 


3S 


017110 


005237 


024210 




INC 


FLA6.1 


017114 


012604 




2$: 


MOV 


(SP)*. R4 


017116 


000207 






RTS 


PC 



;; STORE R4 



;;yAIT MORE 



THIS ROUTINE WAITS FOR READY BIT TO SET 



IF 



IS SET TO 











.-INDICATE READY BIT FAIL TO SET. 


017120 


010446 






RDYCK: 


MOV 


R4, -(SP) 


017122 


010346 








MOV 


R3. -<SP) 


017124 


012703 


000005 






MOV 


05. R3 


017130 


005037 


024210 






CLR 


FLAG.1 


017134 


012737 


077777 


024052 


1$: 


MOV 


077777. COUNTR 


017142 


017704 


004714 




2$: 


MOV 


aCSR, R4 


017146 


042704 


077577 






BIC 


#775^7, R4 


017152 


022704 


100200 






CMP 


*eiT15*BiT7, 


017156 


001410 








BEO 


3$ 


017160 


005337 


024052 






DEC 


COUNTR 


017164 


001366 








BNE 


2S 


017166 


005303 








DEC 


R3 


017170 


001361 








BNE 


1S 


017172 


012737 


000001 


024210 




MOV 


#1. F'AG.1 



SAVE R4 
SAVE R3 



;;READ CSR 



R4 



.nAiN. wAcrn 50a(1052) i3-*w»-80 07-xo page 5-4 
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SEO 0061 



2235 


017200 


012603 






2236 


017202 


012604 






2237 


017204 


000207 






2258 










2239 










22A0 


017206 


005037 


024210 




22A1 


017212 


005337 


024052 




22^2 


01 7216 


003005 






2243 


017220 


012737 


000001 


024210 


2244 


017226 


062716 


000010 




2245 


01 7232 


000207 






2246 










2247 










2248 










2249 










2250 










2251 


01 7234 


010046 






2252 


017236 


010246 






2253 


01 7240 


010446 






2254 


017242 


010546 






2255 


01 7244 


104401 






2256 


01 7246 


027306 






2257 


01 7250 


104401 






2258 


01 7252 


027041 






2259 


017254 


013746 


024064 




22(30 


017260 


104402 






2261 


01 7262 


104401 






2262 


017264 


027350 






2263 


017266 


104412 






2264 


01 7270 


012604 






2265 


017272 


022704 


000000 




2266 


017276 


001412 






2267 


017300 


042704 


000007 




2268 


017304 


012705 


024062 




2269 


017310 


042715 


1 77770 




2270 


0173U 


050425 






2271 


017316 


020527 


024072 




2272 


017322 


001372 






2271 


01 7324 


104401 






227(^ 


017326 


027067 






227^ 


017330 


013746 


024072 




2276 


017334 


104402 






1277 


017336 


104401 






2278 


017340 


027350 






2279 


017342 


104412 






2280 


017344 


012604 






2281 


017346 


022704 


000000 




2282 


01 7352 


00145'. 






2283 


01 7354 


013702 


024072 




2284 


017360 


062702 


000002 




2285 


017364 


010277 


004502 




2286 


017370 


010237 


024074 




2287 


017374 


012777 


000004 


004472 


2288 


017402 


062702 


000004 


2289 


017406 


010277 


004464 




?^ 


017412 


010257 


024100 





3$: 



DMT: 



IS: 



DC4; 



DCS: 



mv 

RTS 



CLR 
DEC 
BGT 
MOV 
ADD 
RTS 



(SP)*. R3 
(SP)*, R4 
PC 



FLAG.1 

fOWyJTR 

IS 

#1, 

#10. 

PC 



FLAG.1 
(SP) 



nuv 


RO. 


-(SP) 


Mn\/ 
nuv 


R2, 


-(SP) 


nuv 


R4, 


-(SP) 


MOW 

nuv 


R5. 


-(SP) 


TVPP 












TVPP 












MOW 

nuv 


RGO, 


-(SP) 


Tvpnr 






TVPP 


















nuv 


(SP)*. 


R4 






R4 


OPO 

txw 




81 C 


#7. 


R4 


MOV 


<rcsR. 


R5 


ejc 


<rl 77770. (R5) 


BIS 


R4. 


(R5) + 


CMP 


R5. 


#PCVO 


BNE 


DC4 




TYPE 






DCMSG5 






MOV 


PCVO, 


-(SP) 


TYPOC 




TYPE 






DCMS6X 






RDOCT 






MOV 


(SP)*. 


R4 


CMP 


<ro. 


R4 


BEO 


DC6 




MOV 


PCVO. 


R2 


ADD 


tt2. 


R2 


MOV 


R2. 


8PCV0 


MOV 


R2. 


PSVO 


MOV 


*4, 


apsvo 


ADD 


*4. 


R2 


MOV 


R2. 


dPCvl 


MOV 


R2. 


PSVI 



.-.RESTORE R5 
;; RE STORE R4 



SAVE RO 
SAVE R2 
SAVE R4 
SAVE R5 



.-.•'tNTER VALUES AFTER( = ) IS TYPED" 

DEVICE ADDRESS ( )=" 
;. -STARTING ADDRESS OF DEVICE 



TYPE")=" 

GET OCTAL NUMBER 

GET NlfBER FROM TOP OF THE STACK 
IS IT 'CR'? 
YES :BR 

CLEAR LAST THREE BITS 

GET ADDRESS 

CLEAR UNWANTED BITS 



.•TYPE PC INTRPT VECTOR( ) = 



READ VECTOR VALUE 

IS IT 'CR'? 

YES -8R 

GET PREVIOUS ADDRESS 
NEXT ADDRESS 
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2291 


017416 


012777 


000004 


004454 




MOV 


*4, 


apsvi 


2292 


017424 


010437 


024072 






mv 


R4. 


PCVO 


2293 


017430 


012777 


017554 


004434 




HOV 


#INTRPT.aPCV0 


229^. 


017436 


062704 


000002 






ADD 


»2, 


R4 


2295 


017442 


012777 


000340 


004424 




NOV 


*PR7, 


dpsvo 


2296 


017450 


062704 


000002 






ADD 


»2. 


R4 


2297 


017454 


010437 


024076 






nov 


R4. 


PCVI 


2298 


017460 


012777 


017662 


004410 




nov 


#TinRTN.aPCVl 


2299 


017466 


062704 


000002 






ADD 


*2, 


R4 


2300 


017472 


010437 


024100 






nov 


R4, 


PSVl 


2301 


017476 


012777 


000340 


004374 




nov 


0PR7, 


apsvi 


2302 


















2303 


017504 


104401 






DC6: 


TYPE 






2304 


017506 


027171 








DCnSGS 






2305 


017510 


013704 


024102 






nov 


BRLV. 


R4 


2306 


017514 


010446 








nov 


R4. 


-(SP) 


2307 


017516 


104402 








TYPOC 






2308 


017520 


104401 








TYPE 






2309 


017522 


027350 








DCnSGX 






2310 


017524 


104412 








RDOCT 






2311 


017526 


012604 








nov 


(SP)+. 


R4 


2312 


017530 


022704 


000000 






CMP 


#0- 


R4 


23^3 


017534 


002002 








BGE 


DC7 




23U 


017536 


010437 


024102 






nov 


R4, 


BRLV 


2315 


017542 


012605 






DC7: 


nov 


(SP)*, 


R5 


2316 


017544 


012604 








nov 


(SP)*, 


R4 


2317 


017546 


012602 








nov 


ISP)*, 


R2 


2318 


017550 


012600 








nov 


ISP)*, 


RO 


2319 


017552 


000207 








RTS 


PC 




2320 










.-DATE ♦ 


TIME INTERRUPT 


ROUTINE 


2321 










# 








2322 


017554 


011637 


024216 






nov 


(SP), 


TEnPI 


2323 


017560 


01 7737 


004276 


024120 




nov 


acsR, 


ACSR 


2324 


017566 


012777 


000000 


004266 




nov 


#0. 


acsR 


2325 


017574 


013737 


024120 


001122 




nov 


ACSR. 


BADA 


2326 


017602 


005037 


024212 




5$: 


CLR 


FLAG. 2 




2327 


017606 


032737 


000100 


024120 


1$: 


BIT 


#100, 


ACSR 


2328 


017614 


001001 








BNE 


2S 




2329 


017616 


104020 








ERROR+20 




2330 


017620 


032737 


100000 


024120 


2$: 


BIT 


#100000.ACSR 


2331 


017626 


001001 








BNE 


3$ 




2332 


017630 


104021 








ERROR+21 




2333 


017632 


022737 


000001 


024226 


3$: 


cnp 




INTREG 


233A 


017640 


001405 








BEO 


4$ 




2335 


017642 


022737 


000002 


024226 




cnp 


#2, 


INTREG 


2336 


017650 


001401 








BEO 


4S 




2337 


017652 


104022 








ERR0R*22 




2338 


01 7654 


005237 


024212 




4$: 


INC 


FLAG. 2 




2339 


017660 


000002 








RTI 






25^0 










• 








2341 










;TjnE INTERVAL 


INTERRUPT ROUT II 


2342 


017662 


011637 


024220 




TI«RTN: 


nov 


(SP). 


TEnP2 


2343 


017666 


005037 


024212 






CLR 


FLAG. 2 




2344 


017672 


017737 


004172 


001126 




nov 


aRG4, 


BAD 


2545 


017700 


017737 


004156 


024120 




nov 


acsR, 


ACSR 


2346 


017706 


005077 


004150 






CLR 


acsR 





NEW ADDRESS 

ADDRESS OF INTERRUPT ROUTINE 
INCREnENT ADDRESS BY 2 

NEXT ADDRESS 



'BUS REQUEST LEVEL ( 



;;IS IT 'CR'? 

; -RESTORE REGISTERS 



RETURN ADDRESS 

STORE CONTENT OF CSR 

CLEAR CSR (DISABLE INTERRUPT) 

CLR FLAG 

UAS INTRPT ENABLED? 
BRANCH IF YES 

IMXPECTED INTRPT AS (DIE) NOT SET 
WAS (DE) BIT SET? 
BRANCH IF YES 

UNEXP INTRPT AS (DE) BIT NOT SET 
IS IT UPDATE INT? 
rRANCH IF YES 

BRANCH IF YES 

UNEXP U«XPLAINABLE INTRPT 

RETURN 



;;READ TIME INTERVAL 
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40 PAGE 5-6 
READ TI«€ OF 



L 5 



THE CLOCK 



SEO 0063 



2347 

2348 

2349 

2350 

2351 

2352 

2553 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 



2368 
2369 
2370 
2371 
2372 
2373 
23? 4 
2375 
2376 
[1 
2 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

vl 



017712 
017720 
017724 
017732 
017734 
017736 
017744 
017746 
017750 
017756 
017760 
017762 
017766 



017770 
017772 
017776 
020000 
020006 
020014 
020022 
020030 
020036 
020044 

020046 
020050 
020052 
020054 



020060 
020060 
020062 
020066 
020072 
020076 
020104 
020106 
020110 
020112 
020114 
020116 
020120 



042777 040000 004150 
005037 024212 
032737 000040 024120 
001001 
104020 

032737 040000 024120 

001001 

104023 

022737 000005 024226 

001401 

104022 

005237 024212 
000002 



012600 
104401 
000421 
052600 
041505 
051124 
020117 
051117 
047522 
000 
020046 
010046 
104402 
000000 
000137 



000004 



005327 
000001 
003022 
012737 
000001 
020106 



020000 

042516 
042524 
050101 
042526 
032040 
020115 



001712 



81 C #40000. aRG4 

CLR FLAG. 2 
IS: BIT #40, ACSR 

BNE 2S 

ERR0R*20 
2S: BIT #40000, ACSR 

6NE 3S 

ERR0R*23 
3$: CMP #5, INTRE6 

BEO 4$ 

ERROR+22 
4$: INC FLA6.2 

RTI 



TRAP ROUTINE 
TRAP4 



;; CLEAR INTRPT ENABLE FLAG 

;;TI«E INTRPT yAS ENABLED? 

; .-UNEXPECTED INTERRUPT 
;;(TI) BIT SET IN CSR 
; .-BRANCH IF YES 

;;FLAG FOR TIMEINTERVAL JNTRP 
; .-BRANCH IF YES 
;;Ur«XPECTED INTERRUPT 
.'.•FLAG TO INDICATE INTERRUPTED 



.-;POP STACK INTO RO 



050130 
020104 
052040 
052103 
043040 
027056 



IS: 



MOV (SP)*. RO 

TYPE , 1$ 

BR 2$ 

.ASCI 2 <200>/UNEXPECTED TRAP TO VECTOR 4 FROM ../ 



2$: 



.EVEN 

MOV RO, 

TYPOC 
HALT 

JMP START 



-<SP) 



;;SAVE RO FOR TYPOUT 
;;G0 TYPE OCTAL ASCII 



.S8TTL END OF PASS ROUTINE 

• - *************************************************************** 

:* INCREMENT THE PASS NUMBER (SPASS) 

;*TYPE 'CND PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NlfOER) 
:*JF THERES A MONITOR GO TO IT 
;*1F THERE ISN'T Jlf*> TO START 

SEOP: 







SCOPE 






001102 




CLR 


STSTNM 


;;ZER0 THE TEST NlfBER 


001172 




CLR 


STIMES 


.-.-ZERO THE NUMBER OF ITERATIONS 


001214 




INC 


SPASS 


;; INCREMENT THE PASS NUMBER 
:; DON'T ALLOW A NEC. NlfBER 


100000 001214 




BIC 


#100000,SPASS 






DEC 


(PC)* 


;;LOOP? 




SEOPCT: 


.yORD 


1 








BGT 


SDOAGN 


- - YES 






MOV 


(PC)*,a<PC)* 


••RESTORE COUNTER 




SENDCT: 


.WORD 


1 








SEOPCT 




;;TYPE 'tND PASS #" 


020165 




TYPE 


,S£NDMG 
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END OF PASS ROUTINE 



N 5 



SfO OOW 



2577 
2378 
2379 
2380 

(1 



020124 013746 001214 

020130 104405 

020132 104401 020162 

020136 013700 000042 

020142 001405 

020144 000005 

020146 004710 

020150 000240 

020152 000240 

020154 000240 
020156 

020156 000137 

020160 001712 

020162 377 377 000 
020165 015 042412 042116 

020172 050040 051501 020123 

020200 000043 





nuv 


•rMo J » — V or I 


m , 


iMVC •fMOO run ITrCUUI 








m * 






TVPF 


CPM H 1 


m i 




MjC I **c - 


HUV 




* 4 


•GET MONITOR ADDRESS 




DCW 




» 1 


■BRANCH IF NO MONITOR 








• 1 


■CLEAR THE UORLO 






PC.(RO) 


m * 


GO TO MONITOR 




NOP 




m I 


■SAVE ROOM 




NOP 




• 1 


•FOR 




NOP 




• 1 


•ACT11 














JMP 


a(PC)* 


;; RE TURN 


SRTNAD: 


.WORD 


START 






SENl^L: 


.BYTE 


-1.-1.0 


:;NULL CHARACTER STRING 


SENDMG: 


-ASCIZ 


<15><12>/ENO PASS 





.NLIST MC.MD.CND 
.S8TTL TYPE ROUTINE 

• *************************************************************** 

^ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
*THE ROUTINE WJU INSERT A NLMBER OF NULL CHARACTERS AFTER A LINE FEED. 



*N0TE1 
*N0TE2 
*N0TE3 



*CALL: 
•1) USING A 

* TYPE 
•OR 

* TYPE 

* MESADR 
* 



SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NlfBER OF FILLER CHARACTERS REQUIRED, 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



TRAP INSTRUCTION 
.MESADR 



; .-MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



020202 


105737 


001157 




tTYPE : 


TST8 


$TPFLG 


;IS THERE A TERMINAL? 


020206 


100002 








8PL 


1$ 


;BR IF YES 


020210 


000000 








HALT 




.HALT HERE IF NO TERMINAL 


020212 


000430 








BR 


3$ ; 


.•LEAVE 


020214 


010046 






It: 


MOV 


RO.-(SP) 


.SAVE RO 


020216 


017600 


000002 






MOV 


a2(SP).R0 


;GET ADDRESS OF ASCIZ STRING 


020222 


122737 


000001 


001226 




CMP8 


fAPTENV.SENV 


.•RUANING IN APT MODE 


020230 


001011 








BNE 


62$ 


;N0.60 CHECK FOR APT CONSOLE 


020232 


132737 


000100 


001227 




BITS 


#APTSP00L.fENVM ; 


.-SPOOL MESSAGE TO APT 


020240 


001405 








BEQ 


62$ 


:NO.GO CHECK FOR CONSOLE 


020242 


010037 


020252 






MOV 


R0,61$ 


.SETUP MESSAGE ADDRESS FOR APT 


020246 


004737 


020472 






JSR 


PC.$ATY3 


.SPOOL MESSAGE TO APT 


020252 


000000 






61S: 


.WORD 


0 


.-MESSAGE ADDRESS 


020254 


132737 


000040 


001227 


62S: 


BITS 


#APTCSUP.$ENVM ; 


.APT CONSaE SUPPRESSED 


020262 


001003 








BNE 


60$ 


•YES SKIP TYf*£ OUT 


020264 


112046 






2$: 


MOVB 


(RO)*.-{SP) 


;PUSH CHARACTER TO BE TYPED ONTO STACK 
;BR IF IT ISN'T THE TERMINATOR 


020266 


001005 








BNE 


4$ 


020270 


005726 








TST 


(SP) + 


.IF TERMINATOR POP IT OFF THE STACK 


020272 


012600 






60S: 


MOV 


(SP)*.RO 


.RESTORE RO 
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TYPE ROUTINE 



H 5 



SEQ 0065 



?38 



020274 
020300 
020302 
020306 
020310 
020314 
020316 
020320 
020322 
020324 
020330 
020332 
020336 
020542 
020344 

020350 
020354 
020356 
020362 
020366 



020370 
020374 
020400 
020406 
020410 
020412 
020414 
020420 
020422 
020430 
020436 
020440 
02044A 
020446 
020454 
020456 
020460 
020462 



020464 
020472 
020500 
020502 
020510 
020510 
020512 
020514 
020520 
020S22 



062716 
000002 
122716 
001430 
122716 
001006 
005726 
104401 
001203 
105037 
000755 
004737 
123726 
001350 
013746 

105366 
002770 
004737 
105337 
000770 



112716 
004737 
132737 
001372 
005726 
000724 
105777 
100375 
116677 
122766 
001003 
105037 
000406 
122766 
001402 
105227 
000000 
000207 



112737 
112737 
000403 
112737 

010046 
010146 
105737 
001450 
122737 



000001 
000001 



000002 




3S: 


ADD 


#2,(SP) 


; .-ADJUST RETURN PC 








RTI 




; .-RETURN 


000011 




4S: 


CMP8 


#HT, (SP> 


; .-BRANCH IF <HT> 








BEO 


8S 




000200 






CMPB 


#CRLF, (SP) 


; .-BRANCH IF NOT <CRLF> 








BNE 


5$ 










TST 


(SP)* 


;;P0P <CR><LF> EQUIV 








TYPE 




;;TYPE A CR AND LF 








SCRLF 






020460 






CLR8 


$CHARCNT 


.-.-CLEAR CHARACTER COUNT 








BR 


2$ 


;;6ET NEXT CHARACTER 


020414 




5$: 


JSR 


Pl,$TYPEC 


.-.-GO TYPE THIS CHARACTER 


001156 




6S: 


CMP8 


$FJLLC,(SP)+ 


;;IS IT TIME FOR FILLER CHARS.? 








BNE 


2S 


;;IF NO GO GET NEXT CHAR. 


001154 






MOV 


SNULL,-(SP) 


::GET # OF FILLER CHARS. NEEDED 












:;AND THE NULL CHAR. 


000001 




7$: 


DECS 


1 (SP) 


.-.DOES A NULL NEED TO BE TYPED? 








BLT 


6$ 


;;8R IF NO — GO POP THE NULL OFF OF STACK 


020414 






JSR 


PC,$TYPEC 


;;G0 TYF»E A NULL 


020460 






DECS 


SCHARCNT 


;;D0 NOT COUNT AS A COUNT 








BR 


7S 


;;LOOP 






;HORIZ0NTAL TAB 


PROCESSOR 




000040 


• 


8S: 


M0V8 


* ,(SP) 


; .-REPLACE TAB WITH SPACE 






9$: 


JSR 


PC,$TYPEC 


; ; TYPE A SPACE 


r\ AAAAT 

000007 


A'^A/ ^A 

020460 




BITS 


*7,$CHARCNT 


; .'BRANCH IF NOT AT 








BNE 


9S 


;;TAB STOP 








TST 


(Sr) + 


;;POP SPACE OFF STACK 








BR 


2$ 


;;GET NEXT CHARACTER 


160530 




STVPEC: 


TST8 


3STPS 


;;UAJT UNTIL PRINTER IS READY 








8PL 


STVPtC 




AAAAA*) 

000002 


1 ^AC 

16052? 




M0V8 


2(Sr),a$TPB 


A.I #\Af^ /*■ I An vn n^ vwn^n v Aivn a v a 

;:LQAD CHAR TO BE TYPED INTO DATA REG. 


<VWM C 

UUUU 1 p 


UUUwc 




C«P8 




• .TC ^UAOATTCD A /*ADOTA#*C DCTIIDAI9 

CHARACicH A CARniAGc RclLfftN/ 








BNE 


1$ 


; .-BRANCH IF NO 


020460 






CLRB 


JCHARCNT 


.-.YES—CLEAR CHARACTER COUNT 








BR 


STYPEX 


;;EXIT 


000012 


000002 


1S: 


CWPS 


#Lf,2<SP) 


;;IS CHARACTER A LINE FEED? 








BEO 


$TYPEX 


; .-BRANCH IF YES 








INCB 


(PC)* 


;; COUNT THE CHARACTER 






SCHARCNT:.WORP 


0 


;; CHARACTER COUNT STORAGE 






$TYPEX; 


RTS 


PC 





.S8TTL APT COMMUNICATIONS ROUTINE 



020730 
020726 



' *************************************************************** 



000001 020730 



iATYl : 
$ATY3: 

IATY4: 
SATYC; 



020726 
000001 



001226 



Move #1.$FFLC 

MOVB fl.fMFLG 

BR SATYC 

MOVB #1,$FFLG 

MOV RO,-(SP> 

MOV Rl.-CSP) 

TST8 SMFLG 

BEQ 5$ 

CMPe /TAPTENV.SENV 



;;T0 REPORT FATAL ERROR 
;;T0 TYPE A MESSAGE 

;;T0 ONLY REPORT FATAL ERROR 

.-.-PUSH RO ON STACK 

;;PUSH R1 ON STACK 

;; SHOULD TYPE A MESSAGE? 

;;IF NOT: BR 

; .OPERATING IfOER APT? 



.HAIN. MACYll 30A(1052) 15-WR-80 07:AO 
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B 6 



(1 
(1 
(1 
(1 
(1 
(1 

n 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(3 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(3 
(3 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
238? 
(1 
(2 
(1 
(1 
(2 
(1 
<1 
(1 
(1 
(1 
(1 



020530 
020532 
0205A0 
0205A2 
0205A6 
02O55A 
020560 
020562 
020566 
020570 
020572 
020576 
020600 
020604 
02C612 
0206K 
020622 
020630 
020634 
020640 
020642 
020642 
020646 
020650 
020654 
020656 
020662 
020664 
020672 
020700 
020704 
020710 
020714 
020720 
020722 
020724 
020726 
020727 
020730 



001031 
132737 
001425 
017600 
062766 
005737 
001375 
010037 
105720 
001376 
163700 
006200 
010037 
012737 
000413 
01 7637 
062766 
013746 
004737 
000000 

105737 
001416 
005737 
001413 
005737 
001 375 
017637 
062766 
005237 
105037 
105037 
105037 
012601 
012600 
000207 
000 
000 
000 
020732 
000200 
000001 
000100 
000040 









BNt 


000 100 


00i2c/^ 




BITS 










OUvA>0*» 






nov 


AAAAA'5 


0UUW4 




ADD 


UU i^UO 




1 c • 


TCT 








ant 








Mm/ 








TCTQ 








□Tic 


UUi ccc 






CI c 








ACD 








not/ 

nUv 




Uv IcvO 




nuv 








on 


UUVWH 




7C • 


nuv 


\aajWc 






ADD 


I r f f fO 






nuv 








ICD 






• 


.WUKD 






• 

j» . 




Ucvf J\J 




1 n« • 


TCTQ 








t5CU 








TCT 








tscu 


\J\J 1 cUO 




1 11- 
119. 


1 CT 








one 




nm Pin 




nuv 








Ann 








I Kir 








n ftp 


020727 






CLRS 


020726 






CLR8 








nov 








nov 








RTS 






$MFLG: 


.BYTE 






SLFLG; 


.BYTE 






SFFLG: 


.BYTE 



PAGE 5-9 
CCmiMI CAT IONS ROUTINE 



3S 

^APTSPOOL.tEN*^ 
3$ 

»4(SP).R0 
#2,4(SP) 
SMSGTYPE 
1$ 

RO.SnSGAO 

(RO)* 
2$ 

SnSGAO.RO 

RO 

RO,$«SGLGT 

#4.$«SGTYPE 

5$ 

a4(SP),4$ 
#2-4{SP) 
177776.-(SP) 
PCSTYPE 

0 

SFFLG 
12$ 
$ENV 
12$ 

$«SGTYPE 
11$ 

a4(SP),$FATAL 

#2,4(SP) 

$«SGTYPE 

$FFLG 

$LFLG 

$^LG 

{SP)+. R1 

<SP)*,RO 

PC 

0 

0 

0 



SEQ OOt-o 



'If NOT: BR 

•SHOULD SPOOL MESSAGES? 

;IF NOT: BR 

;GET MESSAGE ADDR. 

;;BUMP RETURN ADDR. 
;SEE IF DONE W/ LAST XMISSION? 
;IF NOT: WAIT 
;PUT ADDR IN fWILBGX 
.FIND END OF MESSAGE 

;SUB START OF MESSAGE 
.GET MESSAGE LNGTH IN WORDS 
;PUT LENGTH IN MAILBOX 
;TELL APT TO TAKE MSG. 

;;PUT MSG ADDR IN JSR LINKAGE 
;;81JMP RETURN ADDRESS 
;;PUSH 177776 ON STACK 
;;CALL TYPE MACRO 



SHOULD REPORT FATAL ERRORS 
IF NOT: BR 
RUNNING UNDER APT? 
IF NOT: BR 

FINISHED LAST MESSAGE? 
IF NOT: WAIT 
GET ERROR # 

;;BLWP RETURN ADDR. 
TELL APT TO TAKE ERROR 
CLEAR FATAL FLAG 
CLEAR LOG FLAG 
CLEAR MESSAGE FLAG 
POP STACK INTO Rl 
POP STACK INTO RO 
RETURN 
MESSG. FLAG 
LOG FLAG 
FATAL FLAG 



020732 022737 
020740 001114 



000176 001140 



.EVEN 
APTSI2£=200 
APTENV=001 
APTSP0OL=100 
APTCSUP=040 

.S8TTL TTY IW^JT ROUTINE 

• • *************************************************************** 

'.ENABL LSe 

• • *************************************************************** 

:*S0FTUARE SWITCH REGISTER CHANGE ROUTINE. 
;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
:*SERVICE THE TEST FOR CHANGE IN SOFTUARE SWITCH REGISTER TRAP CALL 
.-•WHEN OPERATING IN TTY FLAG MODE. 



$CKSUR: CMP 

BNE 



/t^SWREG.SWR 
15$ 



IS THE SOFT-SUR SELECTED? 
BRANCH IF NO 
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TTY INPUT ROUT. 



020742 


105777 


160176 








020746 


100111 








BPL 


020750 


117746 


160172 






novB 


020^54 


042716 


177600 






BIC 


020760 


022726 


000007 






a*» 


020764 


001102 








BNE 


020766 


125727 


001134 


000001 




CHP8 


020774 


001476 








BEQ 


020776 


104401 


021 544 






TYPE 


021002 


104401 


021551 




SGTSUR: 


TYPE 


021006 


013746 


000176 






nov 


021012 


104402 








TYPOC 


0210U 


104401 


021 562 






TYPE 


021020 


005046 






19$: 


CLR 


021022 


005046 








CLR 


021024 


105777 


160114 




7$: 


TST8 


021030 


1003^5 








BPL 


021032 


1 1 7746 


160110 






MOVB 


021036 


042716 


1 77600 






BJC 




UciOcf 


UwUUi 






CnP 


021046 


001015 








BNE 


021050 


104401 


021532 






TYPE 


021054 


062706 


000006 






ADD 


021060 


123727 


001135 


000001 




Clips 


021066 


001003 








BNE 


021070 


0^2777 


000100 


160046 




MOV 


021076 


000137 


003530 




85: 


J«P 



021102 
021106 
021110 
021 IK 
021120 



021627 
001005 
104401 
062706 
000737 



000025 

021537 
000006 



(1^ 


021122 


021627 


000015 




(1) 


021126 


001022 






(1) 


021130 


005766 


000004 




(1) 


021134 


001403 






(1) 


021136 


016677 


000002 


157774 


J) 


021144 


062706 


000006 




(1) 


021150 


104401 


001203 




(1) 


021154 


123727 


001135 


000001 


(1) 


021162 


001003 






(1) 


021164 


012777 


000100 


157752 


(1) 


021172 


000002 






(1) 


021174 


004737 


020414 




(1) 


021200 


021627 


000060 




(1) 


021204 


002420 






(1) 


021206 


021627 


000067 




(1) 


021212 


003015 








021214 


042726 


000060 





9$: 
20$: 

10$: 



11$: 
14$: 



15$: 
16$: 



CMP 

BNE 

TYPE 

ADO 

BR 



BNE 

TST 

BEQ 

MOV 

ADD 

TYPE 

CMP8 

BNE 

MOV 

RTI 

JSR 

CMP 

BLT 

CMP 

BGT 

BIC 



C 6 



a$TKS ;;CKAR THERE? 

15$ ;;IF NO, DON'T y^jT AROUND 

a$TK8.-(SP) .-.SAVE THE CHAR 

#*C177,(SP) ;;STRIP-OfF THE ASCII 

M7ASP)* ;;IS IT A CONTROL G? 

15$ ;;N0. RETURN TO USER 

$AUTOB.*'! ;;ARE WE RULING IN AUTO-MODE? 

15$ .-.-BRANCH IF YES 

,$CNTLG ;;ECH0 THE CONTROL-G (*G) 

,$MSWR .-.-TYPE CURRENT CONTENTS 

SWREG.-(SP) ;;SAVE SURE6 FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCII (ALL DIGITS) 

,$«NEU ;;PR0MPT FOR NEW SWR 

-(SP) ;; CLEAR COUNTER 

-(SP) ;;THE NEW SWR 

a$TKS ;;CHAR THERE? 

7$ ;;IF NOT TRY AGAIN 

i$TK8.-(SP) ;;PICK UP CHAR 

**C177,(SP) ;;MAKE IT 7-eiT ASCII 

(SP).#3 ;;IS IT A CONTROL-C? 

9$ ; .-BRANCH IF NOT 

.$CNTLC ;;YES, ECHO CONTROL-C (*C) 

#6,SP ;; CLEAN UP STACK 

$INTAG.#1 .-.-REENABLE TTY KEYBOARD INTERRUPTS? 

8$ .-.-BRANCH IF NO 

#100.a$TICS .-.-ALLOW TTY KEYBOARD INTERRUPTS 

RESTRT ;; CONTROL-C RESTART 



(SP)M5 ;;IS IT A CONTROL-U? 

10$ ; .-BRANCH IF NOT 

,$CNTLU .-.-YES. ECHO CONTROL-U CU) 

#6.SP .-.IGNORE PREVIOUS 

19$ .-.-LET'S TRY IT AGAIN 



(SP).*15 ;;IS IT A <CR>? 

16$ .-.-BRANCH IF NO 

«CSP) ;.-YES. IS IT THE FIRST CHAR? 

11$ ;. -BRANCH IF YES 

2(SP).aSWR ;:SAVE NEW SWR 

#6,SP ;; CLEAR UP STACK 

.$CRLf ;;ECHO <CR> AND <LF> 

$INTAG.#1 ;;RE-EN*«LE TTY KBD INTERRUPTS? 

15$ -'BRANCH IF NOT 

#100.a$TKS ;;RE-EW«LE TTY KBD INTERRUPTS 

.-.RETURN 

PC,$TYPEC .-.-ECHO CHAR 

(SP).ir60 ;;CHAR < 0? 

18$ .-.-BRANCH IF YES 

(SP).ir67 .-.-CHAR > 77 

18$ : .-BRANCH IF YES 

#60.(SP)+ ;;STRIP-OfF ASCII 



.MAIN. MACYll 5OA(1052) 15-WAR-80 07:^0 PAGC 5-11 
rZKWLA.PlI 15-«AR-80 07:39 TTr IM»UT RCX/TJNE 

021220 005766 000002 

021224 00K03 

021226 006316 

021230 006316 

021232 006316 

021234 005266 000002 

021240 056616 177776 

021244 000667 

021246 104401 001202 

021252 000720 



D 6 



Seo 00681 



17$. 



18$; 



TST 


2(SP) ; 


;IS THIS THE FIRST CHAR 


BEO 


17$ 


.-BRANCH IF YES i 


ASL 


(sp; 


;N0, SHIFT PRESENT i 


ASL 


(SP) 


CHAR OVER TO MAKE 


ASL 


(SP) 


ROOM FOR NEW ONE. 


INC 


2(SP) 


.-KEEP COUNT OF CKAR 1 


BIS 


-2(SP). (SP) 


;S£T IN NEW CHAR ' 


BR 


7$ 


;GET THE NEXT ONE 


TYPE 


.$QUES 


.•TYPE ?<CR><LF> 


BR 


20$ 


.SIMULATE CONTROL -U 



021374 
021376 
021402 
021406 
021410 
021412 
021414 



.DSABL LS8 



•THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
*CALL : 

» RDCHR ;; INPUT A SINGLE CHARACTER FROM THE TTY 

• RETURN HERE ; .-CHARACTER IS ON THE STACK 

• .-.-WITH PARITY BIT STRIPPED OFF 



021254 


011646 






$RDCHR: 


MOV 


(SP),-(SP) 


021256 


016666 


000004 


000002 




MOV 


4(SP>.2(SP) 


021264 


105777 


157654 




1$: 


TST8 


aSTKS 


021270 


100375 








BPL 


1$ 


021272 


117766 


157650 


0000C4 




M0V8 


8$TKB,4(SP) 
#*C<1^7>,4(SP) 


021300 


042766 


1 77600 


000004 




BIC 


021306 


026627 


000004 


000023 




CMP 


4(SP) ,#23 


021314 


001013 








ONE 


3S 


021316 


105777 


157622 




2$: 


TST8 


aSTKS 


021322 


100375 








BPL 


2$ 


021324 


117746 


157616 






M0V8 


a$TK8.-(SP) 
/r*Cl77.(SP) • 


021330 


042716 


177600 






BIC 


021334 


022627 


000021 






CMP 


(SPJ*.#21 


021340 


001366 








BNE 


2$ 


021342 


000750 








BR 


1$ 


021344 


026627 


000004 


000140 


3$: 


CMP 


4(SP) ,#140 


021352 


002407 








8LT 


4$ 


021354 


026627 


000004 


000175 




CMP 


4(SP>.#175 


021362 


003003 








BGT 


4$ 


021364 


042766 


000040 


000004 




BIC 


#40,4 (SP) 


021372 


000002 






4$: 


RTI 



;*THIS 
.-•CALL 
• » 



PUSH DOUN THE Pf 
SAVE THE PS 
UAJT FOR 
A CHARACTER 
READ THE TTY 
GET RID OF JUNK IF ANY 
IS IT A CONTROL-S? 
BRANCH IF NO 
UAIT FOR A CHARACTER 
LOOP WJll ITS THERE 
GET CHARACTER 
MAKE IT 7-BIT ASCII 
IS IT A CONTROL -Q? 
IF NOT DISCARD IT 
YES, RESUME 
IS IT UPPER CASE? 
BRANCH IF YES 
IS IT A SPECIAL CHAR? 
BRANCH IF YES 
MAKE IT UPPER CASE 
GO BACK TO USER 
********* ••*•** *********************************** ********* 

ROUTINE WILL INPUT A STRING FROM THE TTY 



RDLIN 

RETURN HERE 



010346 
012703 
022703 
101415 
104410 
112613 
122713 



021522 
021532 



000003 



$RDL]N: MOV 
1$: MOV 
2$: CMP 
BLOS 
RDCHR 
MOVB 
CMPB 



R3.-(SP> 
#$TTYIN,R3 
#$TTYlN*8.,fi3 
4$ 

(SP)*,(R3) 
#3.(R5) 



INPUT A STRING FROM THE TTY 

ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
TERMINATOR WILL BE A BYTE OF ALL O'S 

SAVE R3 
GET ADDRESS 
BUFFER FULL? 
W IF YES 

GO READ ONE CHARACTER FROM THE TTY 

GET CHARACTER 

IS IT A CONTROL-C? 



.I1AIN. HACVll 50A(1052) 13-»W-80 07:40 
CZKWLA.P11 15-#VW-80 07; 39 TTr 



PAGE 5-12 
imjT ROUTINE 



E 6 



SEO 0069 



021420 
021422 
021426 
021430 
021434 
021440 
021442 
021446 
021450 
021454 
021460 
021464 
021466 
021472 
021476 
021500 
021502 
021510 
021516 
021520 
021521 
021522 
021532 
021537 
021544 
021551 
021556 
021562 
021570 



1 \ 



021574 
021576 
021604 
021606 
021610 
021612 
021614 
021616 
021620 
021622 
021624 
021626 
021630 
021632 
021634 
021636 



001005 
104401 
012603 
000137 
122713 
001003 
104401 
000753 
111337 
104401 
122723 
001346 
105063 
104401 
012603 
011646 
016666 
012766 
000002 

000 

000 
000010 
041536 

136 
043536 

015 
036440 
020040 
020075 
021 574 



011646 
016666 
010046 
010146 
010246 
104411 
012600 
005001 
005002 
112046 
001412 
006301 
006102 
006301 
006102 
006301 



021532 

003530 
000177 

001202 

021520 
021520 
000015 

)77777 
001204 



000004 
021522 



00501 5 
006525 
005015 
051412 
000040 
042516 
000 



000002 
000004 



000 
000012 

000 
051127 

020127 



000004 000002 





ONE 


lOS 




TYPE 


.SCHTLC 




nov 


(SP)*.R3 




J<1P 


RESTRT 


10$: 


cnPB 


#1 77. <R3) 




BNE 


3S 


4t: 


TYPE 


,SOUES 




BR 


1$ 


3S: 


mvB 


(R3),9S 




TYPE 


,9$ 




cnpe 


#15, (R3)* 




8NE 


2$ 




CLR8 


-UR3) 




TYPE 


,$LF 




nov 


(SP)<-,R3 




MOV 


CSP).-(SP) 




nov 


4(S?).2(SP) 




MOV 


#$TTYIN,4<SP) 




PTi 




9$: 


.SYTE 


0 




.8VTE 


0 


STTYJN: 


.8LW3 


8. 


tCNTLC: 


.ASCI2 


/*C/<15><12> 


SCNTLJ: 


.ASCII 


/*U/<15><12> 


SCNTLG: 


.ASCIZ 


/*G/<15><12> 


$nSUR: 


.ASCI2 


<15><12>/SWR 


SMNEW: 


.ASCIZ 


/ NEW = / 



.EVEN 
,S8TTL 



= / 



READ AN OCTAL NUMBER FROM THE TTY 



.•.BRANCH IF NO 

;;TYPE A CONTROL-C (*C> 

.-.RESTORE R3 

;;G0T0 CONTROL-C RESTART 
;;IS IT A RU80UT 
;;S«P IF NOT 
• • TYPiE A ' 

••CLEAR THE BUFFER AND LOOP 
;;ECHO THE CHARACTER 

;; CHECK FOR RETURN 
;;LOOP IF NOT RETURN 
.-.-CLEAR RETURN (THE 15; 
.-.TYPE A LINE FEED 
* 'RESTORE R3 

••ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 

•'-STORAGE FOR ASCII CHAR. TO TYPE 
;; TERMINATOR 

; .-RESERVE 8 BYTES FOR TTY INPUT 
.-.•CONTROL "C" 
;; CONTROL 'IT* 
;; CONTROL '^G" 



• *-***« ***************************************** ***************** 

'•THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
•CHANGE IT TO BINARY. 



•CALL; 



SRDOCT: 



RDOCT 

RETURN HERE 



1$: 



2$: 



MOV 

MOV 

MOV 

MOV 

MOV 

RDLIN 

MOV 

CLR 

CLR 

MOVB 

BEO 

ASL 

ROL 

ASL 

ROL 

ASL 



(SP),-(SP) 

4(SP).2(SP) 

RO.-(SP) 

Rl.-(SP) 

R2.-{SP) 

(SP)*,RO 

R1 

R2 

(RO)*.-(SP) 

3$ 

Rl 

R2 
Rl 
R2 
Rl 



;;R£AD AN OCTAL NUMBER 

;;LOW ORDER BITS ARE ON TOP OF THE STACK 

.-.HIGH ORDER BITS ARE IN $HIOCT 

;. -PROVIDE SPACE FOR THE 

.-.INPUT NUMBER 

;:PUSH RO ON STACK 

;:PUSH Rl ON STACK 

;;PUSH R2 ON STACK 

;;REAO AN ASCIZ LINE 

;;GET ADDRESS OF 1ST CHARACTER 

.•.•CLEAR DATA WORD 

; .-PICKUP THIS CHARACTER 
;;IF ZERO GET OUT 
;;*2 

;;*8 
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.«AIN. HACV11 30A(105?) 15-*W»-80 07:40 PAGf 5-13 

CZKWLA.P11 15-WI»-80 07:39 READ AN OCTAL NlfBER FROM THE TTr 



SEQ 00701 



n 

(1 
(1 
(1 
CI 
(1 

n 

(3 
(3 
(3 
(1 
(1 
2384 
(1 
(2 
(1 
(1 
(1 
CI 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 



021640 006102 

021642 042716 177770 

021646 062601 

021650 000764 

021652 005726 

021 65^ 010166 000012 

021660 010237 021674 

021664 012602 

021666 012601 

021670 012600 

021672 000002 

021674 000000 



017646 
116637 
112637 
?716 




010446 
010546 
115704 
00S404 
062704 
110437 
113704 
016605 
Q0S003 
006105 




000001 

w 



022123 

000006 
022122 
022121 
000012 



022121 



022121 
022123 
022120 



3$: 



$HI0CT 



ROL 

BIC 

ADO 

BR 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

RTI 

.WORD 



R2 

fC7,(SP> 

(SP)*,R1 

2$ 

iSP)* 

aij2(SP) 

R2.fHlOCT 
(SP)*.R2 
(SP)*,R1 
(SP)*.RO 



,S8TTL BimRy TO OCTAL (ASCII) AND TVPE 



SIRIP THE ASCII JUNK 
ADD IN THIS DIGIT 
LOOP 

CLEAN TERMINATOR FROM STACK 
SAVE THE RESULT 

POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 
RETURN 

HIGH ORDER BITS GO HERE 



•THIS ROUTINE IS USED TO CHANGE A 16HBIT BINARY NlfBER TO A 6-DIGIT 
•OCTAL (ASCII) Nl/BcR AND TYPE IT. 

•STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NLfBER OF DIGITS TO TYPE 

•CALL: 
* 

* 
* 



MOV 

TYPOS 
.BYTE 
.BYTE 



Nlfl.-(SP) 

N 
M 



NUMBER TO BE TYPED 
CALL FOR TYPEOUT 

N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

M=1 OR 0 

;;1=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 



MOV 

TYPOC 



Nl#1,-(SP) 



•ITYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

*$TYPOS OR STYPOC 
•CALL: 

• MOV NIJI.-(SP) ;;Nl/BER TO BE TYPED 

• TVPON ;;CALL FOR TYPEOUT 
* 

•f TYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

•CALL; 

;;NlfBER TO BE TYPED 
;;CALL FOR TYPEOUT 

PICKUP THE MODE 
LOAD ZERO FILL SWITCH 
NkfCER OF DIGITS TO TYPE 
ADJUST RETURN ADDRESS 

SET THE ZERO FILL SWITCH 
SET FOR SIX(6) DIGITS 
SET THE ITERATION COUNT 
SAVE R3 
SAVE R4 
SAVE R5 

GET THE NlfBER OF DIGITS TO TYPE 

SUBTRACT IT FOR MAX. ALLOWED 
SAVE IT FOR USE 
GET THE ZERO FILL SWITCH 
PICKUP THE im)l NlfBER 
CLEAR THE OUTPUT WORD 
ROTATE MSB INTO 't" 



STYPOS: 


MOV 


a(SP),-(SP) 




M0V8 


1(SP).$0F1LL 




MOVB 


(SP) ♦,$0M00E*1 




ADD 


#2.(SP) 




BR 


STYPON 


STYPOC: 


MOVB 


#1.$0FILL 




MOVB 


«6,S0M0DE^1 


fTYPON: 


mm 


#5,$0CNT 




MOV 


R3.-(SP) 




MOV 


R4.-(SP) 




MOV 


R5,-(SP) 




MOVB 


$0M0DE»1,R4 




NEG 


R4 




ADD 


#6,R4 




MOVB 


R4.$0M0DE 




MOVB 


$0FILL.R4 




MOV 


12(SP).R5 




CLR 


R3 


1$: 


ROL 


R5 
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.MAIN. HACrll 50A(1052> 15-«AR-80 07:40 PAGE 5-K 

C/'CWLA.PII 15-WR-80 07:39 BINARY OCTAL (ASCII) AND lYPE 



SEO 0071 



216 



022004 000404 

022006 006105 

022010 006105 

022012 006105 

022014 010505 

022016 006103 

022020 105337 022122 

022024 100016 

022026 042703 177770 

022032 001002 

022034 005704 

022036 001403 

022040 005204 

022042 052703 000060 

022046 052703 000040 

022052 110337 022116 

022056 104401 022116 

022062 105337 022120 

022066 003347 

022070 002402 

022072 005204 

022074 000744 

022076 012605 

022100 012604 

022102 012603 

022104 016666 000002 000004 

022112 012616 

022114 000002 

022116 000 

022117 000 

022120 000 

022121 000 

022122 000000 



022124 

022124 010046 

022126 010146 

022130 010246 

022132 010546 

022154 010546 

022136 012746 020200 

022142 016605 000020 

022146 100004 

022150 005405 

022152 112766 000055 000001 



2$: 



3S: 



4$: 

5$: 

7$: 



6S: 



8S: 



$0CNT: 
SOFILL: 
fOliOOE: 
.S8TTL 



BR 5S 

i»OL R5 

ROL R5 

ROL R5 

nOV R5.R3 

ROL R5 

DECS SOnODE 

BPL 7$ 

BIC #1 77770, R5 

BNE 4$ 

TST R4 

BEQ 5S 

INC R4 

BIS tt'O.Rl 

BIS #• ,R3 

M0V8 R3,8$ 

TYPE ,8$ 

DECS SOCNT 

BGT 2$ 

BLT 6S 

INC R4 

BR 2$ 

MOV (SP)*,R5 

MOV (SP)+.R4 

MOV (SP)*.R3 

MOV 2(SP),4(SP) 

MOV (SP)*.(SP) 
RTI 

.BVTE 0 

.BYTE 0 

•BYTE 0 

.BYTE 0 

.WORD 0 

CONVERT BINARY TO DECI^L 



;G0 DO MSB 
;FORM THIS DIGIT 



GET LS8 OF THIS DIGIT 
TYPE THIS DIGIT? 
BR IF NO 
GET RID OF JUNK 
TEST FOR 0 
SUPPRESS THIS 0? 
BR IF YES 

DON'T SUPPRESS ANYMORE O'S 
MAKE THIS DIGIT ASCII 
MAKE ASCII IF NOT ALREADY 
SAVE FOR TYPING 
GO TYPE THIS DIGIT 
COIWT BY 1 
BR IF MORE TO DO 
BR IF DONE 

INSl«E LAST DIGIT ISN'T A BLANK 
GO DO THE LAST DIGIT 
RESTORE R5 
RESTORE R4 
RESTORE R3 

SET THE STACK FOR RETURNING 
RETURN 

STORAGE FOR ASCII DIGIT 
TERMINATOR FOR TYPE ROUTINE 
OCTAL DIGIT COUNTER 
ZERO FILL SWITCH 
NlfBER OF DIGITS TO TYPE 
AND TYPE ROUTINE 



*THIS ROUTINE IS USED TO CHANGE A 16-aiT BINARY NU«ER TO A 5-DIGIT 
*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT, DEPENDING ON WHETHER THE 
•NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
*8EF0RE THE FIRST DIGIT OF THE Nl/BER. LEADING ZEROS WILL ALWAYS BE 
•REPLACED WITH SPACES. 
♦CALL : 

• MOV Nlfl.-(SP) ;;PUT THE BINARY NUMBER ON THE STACK 

• TYPDS ;;G0 TO THE ROUTINE 



STYPDS: 



MOV RO,-(SP) 

MOV Rl.-(SP) 

MOV R2,-(SP) 

MOV R3.-(SP) 

MOV R5.-(SP) 

MOV #20200. -(SP) 

MOV 20(SP).R5 

BPL 1$ 

NEG R5 

M0V8 #'-,1(SP) 



PUSH RO ON STACK 

PUSH Rl ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH R5 ON STACK 

SET BLAM( SWITCH AND SIGN 

GET THE imil NlfBER 

BR IF INPUT IS POS. 

MAKE THE BINARY NlfGER POS. 

MAKE THE ASCII NUMBER NEG. 
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CZKWLA.P11 l5-flAR-80 07:39 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



SEQ 007^ 



1 



022160 
022162 
022166 
022172 
022174 
022200 
022202 
022204 
022206 
022210 
022212 
022214 
022216 
022220 
022222 
Q2222t^ 
022226 
022234 
022240 
022244 
022246 
022250 
022254 
022256 
022260 
022262 
0222(A 
022266 
022270 
022276 
022300 

7311 
>31L 
316 




005000 
012703 
112723 
005002 
016001 
160105 
002402 
005202 
000774 
060105 
005702 
001002 
105716 
100407 
106316 
103003 
116663 
052702 
052702 
110223 
005720 
020027 
002746 
003002 
010502 
000764 
105726 
100003 
116663 
105013 
012605 
012603 
012602 
012601 
012600 
104401 
016666 
012616 
0QQ002 
023420 
001750 
000144 
000012 
000004 



022T40 
000040 

022350 



000001 \77777 

000060 

000040 



000010 



\77777 -[7777^ 



022340 

000002 000004 



1»: 

2S: 
5S: 

4$: 
5$: 



6S: 
7$: 



8$: 
9$: 



»DT8L; 



$D8LK: 
.S8TTL 



CLR 
MOV 

novB 

CLR 

MOV 

SUB 

BLT 

INC 

BR 

ADD 

TST 

BNE 

TST8 

BMI 

ASL8 

see 

MOVE 

BIS 

BIS 

M0V8 

TST 

CMP 

BLT 

BGT 

MOV 

BR 

TST8 

BPL 

MOVE 

CLR8 

MOV 

MOV 

MOV 

MOV 

MOV 

TYPE 

MOV 

MOV 

RTI 

10000. 

1000. 

100. 

10. 

.8LKW 

ROUTINE 



RO 

#$D8LIC.R3 
#• .(R3)* 

R2 

$0T8L(R0) .R1 

R1.R5 

4S 

R2 

3$ 

R1,R5 

R2 

5$ 

(SP) 

7$ 

(SP) 

6S 

1(SP).-1(R3) 

#'0,R2 

*• ,R2 

R2.{R3)* 

(RO)* 

R0,#10 

2$ 

8$ 

R5.R2 
6S 

(SP)* 
9S 

-1(SP),-2(R3) 
(R3) 

(SP)*.R5 

(SP)*,R3 

(SP)*,R2 

(SP)*, R1 

(SP)*,RO 

.SDBLK 

2 (SP) .4 (SP) 

(SP)*.(SP) 



TO SIZE MEMORY 



ZERO THE CONSTANTS INDEX 

SETUP THE OUTPUT POINTER 

SET THE FIRST CHARACTER TO A BLATJK 

CLEAR THE BCD NUP«ER 

GET THE CONSTANT 

FORM THIS BCD DIGIT 

BR IF DONE 

INCREASE THE BCD DIGIT BY 1 

ADD BACK THE CONSTANT 

CHECK IF BCD OIGIT=0 

FALL THROUGH IF 0 

STILL DOING LEADING O'S? 

BR IF YES 

MSD? 

BR IF NO 

YES—SET THE SIGN 

MAKE THE BCD DIGIT ASCII 

MAKE IT A SPACE IF NOT ALREADY A DIGIT 

PUT THIS CHARACTER IN THE OUTPUT BUFFER 

JUST INCREMENTING 

CHECK THE TABLE INDEX 

GO DO THE NEXT DIGIT 

GO TO EXIT 

GET THE LSD 

GO CH^E TO ASCII 

WAS THE LSD THE FIRST NON-ZERO? 

BR IF NO 

YES—SET THE SIGN FOR TYPING 

SET THE TERMINATOR 

POP STACK INTO R5 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 

POP STACK INTO RO 

NOU TYPE THE NUMBER 

ADJUST THE STACK 

RETURN TO USER 



•CALL: 

• JSR PCSSIZE 

• RE TURN 
•$LSTAD WILL CONTAIN: 

• WITH KTIl OPTION 
WITHOUT KT11 OPTION 

•SLSTBK WILL CONTAIN THE LAST BANK AS A SAF 
•JKT11 iS THE MEMORY MANAGEMENT KEY 
•8IT07 = 0 DON'T USE MEMORY MANAGEMENT 



— LAST VIRTUAL ADDRESS OF THE LAST BANK 

— LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY 



fZKWLA.PII 15-#lAP-80 07:39 



07:40 PAGE 5-16 

ROuTi^ TO SIZE nenoRY 



I 6 



SEO 007? 



( 1 ) 

'1) 022350 


010046 




'1> 022352 


010146 




( 1 ) 022354 


010246 




CI) 022356 


010346 




(1) 022360 


013746 


000004 


(1) 022364 


013746 


000006 


(1> 022370 


010600 




(2) 022372 


104400 




(2) 022374 


012637 


000006 


(1) 022400 


012701 


003776 


H) 022404 


105727 




H) 022406 


000200 




M) 022410 


100062 




(1) 022412 


012737 


022550 


M) 022420 


005737 


177572 


n; 022424 


052737 


100000 


(1) 022432 


005046 




'D 022454 


012702 


172340 


( ) 022440 


012703 


000010 


( 1 ) 022444 


012762 


077406 


;i) 022452 


011622 




( 1 ) 022454 


062716 


000200 


M) 022460 


077307 




( 1 ) 022462 


012742 


177600 


( 1 ) 022466 


005042 




(1) 022470 


012737 


022506 


(1> 022476 


012737 


000020 


( 1 ) 022504 


000401 




( 1 ) 022506 


022626 




(1) 022510 


005237 


177572 


(1) 022514 


012737 


022540 


( 1 ) 022522 


005737 


143776 


( 1 ) 022526 


062712 


000040 


H) 022532 


023712 


172356 


( 1 ) 022536 


101371 




( 1 ) 022540 


011202 




(1) 022542 


005037 


177572 


( 1 ) 022546 


000421 




( 1 ) 022550 


042737 


100000 


(1) 022556 


012737 


022606 


( 1 ) 022564 


005002 




( 1 ) 022566 


062701 


004000 


(1) 022572 


062702 


000040 


(1) 022576 


005711 




( 1 ) 022600 


022701 


177776 


(1) 022604 


001370 




(1) 022606 


162701 


004000 


(1) 022612 


162702 


000040 


( 1 ) 022616 


010006 




( ' ) 022620 


012637 


000006 


( 1 ; 022624 


012637 


000004 



MUST BE SETUP BEFORE THE CALL 
;*eiT15 = 0 DON'T HAVE HEHORY MANAGEMENT OPTION 
DETERMINED BV ROUTINE 



000004 
022406 

1 77740 



000004 
172516 



000004 



022406 
000004 



SSI2E: 


MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 


;;SET THE ERR 




TRAP 




MOV 




MOV 




TST8 


$KT11: 


.WORD 




BPL 




MOV 




TST 




BIS 




CLR 




MOV 




MOV 


1$: 


MOV 




MOV 




ADD 




soe 




MOV 




CLR 




MOV 




MOV 




BR 


2$: 


CMP 


3$: 


INC 




MOV 


4$: 


TST 




ADD 




CMP 




BHI 


$KT0UT: 


MOV 




CLR 




BR 


SKTNEX: 


SIC 


SCORE: 


MOV 




CLR 


1$: 


ADD 




ADD 




TST 




CMP 




BNE 


SCROUT: 


sue 


$SI2EX. 


SUB 




MOV 




MOV 




MOV 



RO.-(SP) .-.SAVE 
R1,-(SP) ;;SAVE 
R2.-(SP) ;;SAVE 
R3.-(SP) ;;SAVE 
»rERRVEC.-(SP) .-.-SAVE 
»rERRVEC*2.-(3P) 

SP.RO ;;SAVE THE STACK POINTER 

[ PS TO THE PRESENT PS 

;;PUSH OLD PSW AW PC ON STACK 



RO ON THE STACK 
Ri ON THE STACK 
R2 ON THE STACK 
R3 ON THE STACK 
PRESENT ERROR VECTOR PS 



t PC 



(SP)*,a*ERRVEC*2 
#3776. R1 
(PC)* 
200 
SCORE 

#SKTNEX,arERRVEC 
ifSRO 

*100000,SKT11 
-(SP) 

#KIPAR0,R2 
#*D8.R3 
#77406, -40 (R2) 
(SP),(R2)* 
#200. (SP) 
R3.1$ 

#1 77600. -(R2) 
-(R2) 

#2$,a#ERRVEC 

#20.a#SR3 

3S 

(SP)«',(SP)* 

a#sRO 

#$KTOUT,a#ERRVEC 
a#1 43776 
#40. (R2) 
a«KIPAR7.(R2) 
4S 

(R2).R2 
a#SRO 
SSIZEX 

#100000. SKT11 



.-.-SAVE THE PSW IN d#ERRVEC*? 
.-SETUP ADDRESS 
.•USE MEMORY MANAGEMENT? 
;SET TO USE MEMORY MANAGEMENT 
;8R IF NO 
.-.-SET FOR TIMEOUT 
;KT11 ARE YOU THERE? 
.•YES—SET KT11 KEY 
.•INITIALIZE FOR 'PAR'" LOADING 
.ADDRESS OF FIRST 'PAR" 
.■LOAD EIGHT 'T>AR.'S" AND EIGHT 'PDR.'S" 
;PDR = 4K. UP. READ/WRITE 
.-LOAD "PAR" 
.UPDATE FOR NEXT "PAR" 
.LOOP UNTIL ALL EIGHT ARE LOADED 
.•SETUP ICIPAR7 FOR I/O 
.•SETUP ICIPAR6 FOR TESTING 
.-CATCH TIMEOUT IF NO SR3 
.ENABLE 22 BIT MODE 
.■THIS PDP-11 HAS A SR3 REGISTER 
.-CLEAN OFF THE STACK—NO SR3 
.•TURN ON MEMORY MANAGEMENT 
;;SET FOR TIME OUT 
.•TRAP ON NON-EX-MEM 
.-MAKE A IK STEP 
.LAST ONE? 
;N0— TRY IT 
.-GET LAST BANK^I 
:TURN OFF MEMORY MANAGEMENT 

;;KT11 NON-EXISTENT 



#SCROUT.a#ERRVEC ;;SET FOR TIMEOUT 



R2 
#4000,R1 
#40,R2 

(R1) 

#1 77776. R1 
IS 

#4000,R1 
#40,R2 
RO.SP 



.-SET UP BAM( 
.-INCREMENT BY IK 
;1K STEP 

;TRAP ON TIME OUT 

.-LAST ONE 

; NO— TRY AGAIN 



.-.DROP BACK 
.-.RESTORE THE STACK 
(SP)+.a#£RRV£C*2 ;;RESTORE ERROR VECTOR 
(SP)*.a#ERRVEC 
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J 6 



SFQ OOA 



1/ 
1 
1 
1 
1 
1 
1 
1 
1 

2587 

;i 
2 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

;i 
;i 
1 

2 
1 

;i 
;i 
1 
1 
1 
1 
1 
1 

:i 
;i 
1 
1 
1 
1 



022630 010137 022652 

022634 010237 022654 

022640 012603 

022642 012602 

022644 012601 

022646 012600 

022650 000207 

022652 000000 

022654 000000 



022656 
022656 
022660 
022666 
022672 
022674 
022702 
022710 
022712 
022716 
022722 
022726 
022734 
022742 
022750 
022752 
022756 

022760 
022766 
022774 
023000 
023004 
023006 
023012 
023016 
023022 
023026 
023030 
023034 
023036 
023040 
023046 



104407 
113737 
105237 
001775 
013777 
032777 
001402 
104401 
005237 
011637 
162737 
117737 
032777 
001055 
021627 
101046 

016637 
162737 
104401 
013746 
104402 
104401 
162716 
011637 
013746 
104402 
104401 
022626 
000422 
050200 
020040 



001102 
001103 

001102 
002000 

001176 
001112 
001116 
000002 
156156 
020000 

001002 



000004 
000002 
023040 
001116 

023046 
000004 
001116 
001116 

001203 



036503 
047125 



024042 



1 56240 
156230 



001116 
001114 
156170 



001116 
001116 



MOV 
NOV 
MOV 
MOV 
MOV 
MOV 
RTS 

fLSTAD: -WORD 
SLSTSK: .WORD 



R1.SLSTAD 
R2.SLSTBIC 
(SP)*,R3 
(SP)*.R2 
(SP)*,R1 
(SP)*.RO 
PC 
0 
0 



,S8TTL ERROR HANDLER ROUTINE 



.-.LAST ADDRESS 
.-.-LAST BANK 
.-.•RESTORE R3 
;. -RES I ORE R2 
; .-RESTORE R1 
.-.RESTORE RO 

;; CONTAINS THE LAST ADDRESS 
;; CONTAINS THE LAST BANK 



iTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
»SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
*AND GO TO SERRTYP ON ERROR 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

*SW15=1 HALT ON ERROR 

*SW13=1 INHIBIT ERROR TYPEOUTS 

*SW10=1 BELL ON ERROR 

•SW09=1 LOOP ON ERROR 

•CALL 

• ERROR 



N 



;;ERROR=EMT AND N=ERROR ITEM NUMBER 



SERROR: 



7$: 



IS: 



CKSWR 
M0V8 
INCB 
BEQ 
MOV 
BIT 
BEO 
TYPE 
INC 
MOV 
SUB 
M0V8 
BIT 
BNE 
CMP 
BHI 



STSTNM.TSTNUM 

SERFLG 

7S 

STSTNM.aOI SPLAY 

«BIT10.aSWR 

1$ 

,S8£LL 

SERTTL 

(SP),SERRPC 

#2,»ERRPC 

a$ERRPC,$ITEMB 

«8IT13,aSWR 

20S 

(SP),*1002 
12S 



.-.PROCESS UNEXPECTED TRAP OR INTERRUPT 



.'TEST FOR CHANGE IN SOFT-SWR 

SET UP TEST # ON ERROR 

.-SET THE ERROR FLAG 

.■DON'T LET THE FLAG GO TO ZERO 

.DISPLAY TEST NUMBER AND ERROR FLAG 

.BELL ON ERROR? 

;N0 - SKIP 

.-RING BELL 

.COUNT THE NLMBER OF ERRORS 

.-GET ADDRESS OF ERROR INSTRUCTION 

.•STRIP AND SAVE THE ERROR HEM CODE 
.•SKIP TYPEOUT IF SET 
.-SKIP TYPEOUTS 

;iF RETURN PC LESS THAN 1002 
.-ERROR IS ILLEGAL TRAP 



000040 
054105 



10$: 
11$: 



MOV 

SUB 

TYPE 

MOV 

TYPOC 

TYPE 

SUB 

MOV 

MOV 

TYPOC 

TYPE 

CMP 

BR 

.ASCI2 
.ASCIZ 



4(SP).$ERRPC 
#2-$ERRPC 
.16$ 

$ERRPC.-<SP) 

.11$ 
#4,(SP) 
(SP).$ERRPC 
$ERRPC,-<SP) 

,$CRLF 

(SPi+.{SP)* 

20$ 

<200>'PC= • 
• UNEXPECTED 



;;6ET PC AT TIME OF FALSE TRAP 
.-.ADJUST PC 
.-.TYPE HEADER 
.-.SAVE $ERRPC FOR TYPEOUT 
;;G0 TVPE—OCTAL ASCI I (ALL DIGITS) 

;;6ET FALSE TRAP VECTOR AODR 

.-.SAVE SERRPC FOR TYPEOUT 

;.G0 TYPE—OCTAL ASCI I (ALL DIGITS) 

.-.POP FALSE TRAP VECTOR PCfcADDR 



TRAP TO 
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(1 

f1 
n 
(1 
n 
(1 
(1 
(1 
(1 
(1 
n 
(1 
(1 
(1 
(1 
(1 
(1 
(I 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 



07: to PAGE 5-' 8 

ERROR H^LER ROUTINE 



K 6 



SCO 0075 



i?388 
(1 
(2 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(2 
(2 
(2 
(1 
(1 
(1 
(1 
(1 
(1 
(^ 
(1 



023074 
023074 
023100 
023104 
023104 
023112 
023114 
023122 
023126 
023127 
023130 
023132 
023136 
023140 
023142 
023144 
023152 
023154 
023160 
0231 6^. 
023166 
023172 
023172 
023200 
023202 
023204 
023204 



042520 


052103 


042105 


052040 


040522 


020120 


047524 


000040 




004737 


023206 




104401 


001203 




122737 


000001 


001226 


001007 






113737 


001114 


023126 


004737 


020502 




000 






000 






000777 






005777 


156002 




100002 






000000 






104407 






032777 


001000 


155766 


001402 






U 1 Dftb 


UU 1 mU 




005737 


001174 




001402 






013716 


001174 




022737 


020146 


000042 


001001 






000000 






000002 









.EVEN 




12$: 








JSR 


PC,$ERRTYP 




TYPE 


.$CRLF 


20S: 










#APTENV.$ENV 




BNE 


2S 




novB 


$ITEMB,21$ 




JSR 


PC,$ATy4 


21$: 


.BYTE 


0 




.6VTE 


0 


22$: 


BR 


22$ 


2$: 


TST 


asvdR 




BPL 


3$ 




HALT 






CKSyR 




3$: 


BIT 


«BIT09.aSUR 




BEO 


4$ 




nov 


$LPERR,{SP) 


4$: 


TST 


$ESCAPE 




BEO 


5$ 




nov 


$ESCAPE,(SP) 


5$: 






CMP 


mNDAD,a4r42 




BNE 


6S 




HALT 




6$: 


RTl 





:;G0 TO USER ERROR ROUTINE 



RUNNING IN APT MODE 

NO, SKIP APT ERROR REPORT 

SET ITEM NUMBER AS ERROR NkTBER 

REPORT FATAL ERROR TO APT 



.APT ERROR LOOP 

;HALT ON ERROR 

;S»CIP IF CONTINUE 

;HALT ON ERROR! 

.TEST FOR CHANGE IN SOFT-SWR 

.LOOP ON ERROR SWITCH SET? 

'BR IF NO 

:FUDGE RETURN FOR LOOPING 
.-CHECK FOR AN ESCAPE ADDRESS 
;BR IF NONE 

.•FUDGE RETURN ADDRESS FOR ESCAPE 

;ACT-11 AUTO-ACCEPT? 
.•BRANCH IF NO 
;YES 



* 'RETURN 

.S8TTL ERROR MESSAGE TYPEOUT ROUTINE 



;*THIS ROUTINE USES THE "ITEM CONTROL BYTE" ($ITEMB) TO DETERMINE WHICH 
:*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE 'tRROR TABLE" ($ERRTB} . 
:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 



023206 
023206 
023212 
023214 
023216 
023222 



104401 001203 

010046 

005000 

153700 001114 
001004 



$ERRTYP: 



023224 013746 001116 

023230 104402 

023232 000426 

023234 005300 

023236 006300 

023240 006300 

023242 006300 

023244 062700 001332 

023250 012037 023260 

023254 001404 



1$: 



TYPE ,$CRLF 

MOV RO.-(SP) 

CLR RO 

BISB aurSITEMB.RO 

BNE 1$ 

MOV $ERRPC,-(SP) 

TYPOC 

BR 6S 

DEC RO 

ASL RO 

ASL RO 

ASL RO 

ADD #$ERRTB.RO 

MOV (R0)*.2$ 

BEO 3$ 



"CARRIAGE RETURN" fc 'LINE FEED" 
SAVE RO 

PICKUP THE ITEM INDEX 

IF ITEM NlfBER IS ZERO, JUST 
TYPE THE PC OF THE ERROR 
SAVE $£RRPC FOR TYPEOUT 
ERROR ADDRESS 

GO TYPE—OCTAL ASCII (ALL DIGITS) 
GET OUT 

ADJUST THE INDEX SO THAT IT WILL 
WORK FOR THE ERROR TABLE 



;FORM TABLE POINTER 

;PICKUP 'tRROR MESSAGE" POINTER 

.SKIP TYPEOUT IF NO POINUR 
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ERROR MESSAGE TvPEOUT ROUTINE 



SEO 0076 



2389 



> 023256 
023260 
023262 
023266 
121272 
023274 
023276 
023300 
023304 
023306 
023310 
023312 
023316 
023320 
023320 
023322 
023324 
023326 
023330 
023334 
023336 



023342 
023342 



104401 
000000 
104401 
012037 
001404 
104401 
000000 
104401 
011000 
001004 
012600 
104401 
000207 

013046 
104402 
005710 
001770 
104401 
000771 
020040 
023342 



104407 



001203 
023276 



001203 
001203 



023336 
000 





TVPP 






unon 


n 

V 








39. 


nuv 






DCU 


ce 
J* 




TVPP 












TVPP 














7$ 


4 


MDi/ 
nuv 






TVPF 






RT^ 


pr 


7$: 








MOV 


a(R0)*,-(SP) 




TfPOC 






TST 


(RO) 




BEQ 


6$ 




TyPE 






BR 


^» 


8S: 


.ASCIZ 


/ / 




.EVEN 





TYPE THE '^RROR MESSAGE" 

'tRROR MESSAG5*' POINTER GOES HERE 

•tARRIAGE RETURN" 6 "IINE FEED" 

PICKUP 'DATA HEADER" POINTER 

SKIP TYPEOUT IF 0 

TYPE THE 'DATA HEADER" 

•DATA HEADER" POINTER GOES HERE 

•tARRIAGE RETURN" t 'VINE FEED" 

PICKUP 'DATA TABLE" POINTER 

GO TYPE THE DATA 

RESTORE RO 

"CARRIAGE RETURN" & 'IINE FEED" 
RETURN 

SAVE aCRO)* FOR TYPEOUT 

60 TYPE—OCTAL ASCI I (ALL DIGITS) 

IS THERE ANOTHER NUMBER? 

BR IF NO 

TYPE TW0(2) SPACES 
LOOP 

TW0(2) SPACES 



.SBTTL SCOPE HANDLER ROUTINE 



• *************************************************************** 

•THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

*AND LOAD THE TEST NUMBER($TSTf#1) INTO THE DISPLAY REG. (DISPLAY<7:0» 

•AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAV<15:08> 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

•SW14=1 LOOP ON TEST 

•SW11=1 INHIBIT ITERATIONS 

•SW09=1 LOOP ON ERROR 

•SW08=1 LOOP ON TEST IN SWR<7:0> 

•CALL 

• SCOPE ;;SC0PE=I0T 



023544 


021627 


001002 




CMP 


023350 


101002 






BHI 


023352 


000157 


022656 




JMP 


023356 


052777 


040000 


155554 


1$: BIT 


023364 


001114 






BNE 










;#####START 


023366 


000416 






SXTSTR: BR 


023370 


013746 


000004 




MOV 


023374 


012737 


023414 


000004 


MOV 


023402 


005737 


177060 




TST 


023406 


012637 


000004 




MOV 


023412 


000463 






BR 


023414 


022626 






5$: CMP 


023416 


012637 


000004 




MOV 


025422 


000423 






BR 



SSCOPE: 

CKSUR 

::G0 TO ERROR ROUTINE IF RETURN 



(SP),#1002 
1$ 

(ERROR 

/»IT14,asWR 

SOVER 

:0DE FOR THE XQf 
6S 

a#ERRVEC,-CSP) 
#5$.a#ERRVEC 

a(ri^7060 

(SP)*,a*ERRVEC 

SSVLAD 

(SP)*.(SP)+ 

(SP)*,a*£RRVEC 

7$ 



;;TEST FOR CHANGE IN SOFT-SWR 
PC LESS THAN 1002 

;UNEXPECTED TRAP OR INTERRRUPT 
;AR£ TRAPPED HERE VIA lOT 
;G0 PROCESS IWEXPECTED TRAP 
;LOOP ON PRESENT TEST? 
;YES IF SW14=1 

;IF RlffillNG ON THE "XOR" TESTER CHANGE 

.THIS INSTRUCTION TO A "NOP" (N0P=240) 

.-SAVE THE CONTENTS OF THE ERROR VECTOR 

;SET FOR TIMEOUT 

;TIME OUT ON XOR? 

.-RESTORE THE ERROR VECTOR 

;G0 TO THE NEXT TEST 

.-CLEAR THE STACK AFTER A TIME OUT 

.RESTORE THE ERROR VECTOR 

.LOOP ON THE PRESENT TEST 
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SCOPE HANDLER ROUTINE 



n 6 



SEO 0077 



^^390 



025A24 
023424 
025432 
023434 
023442 
023444 
023450 
023452 
023460 
023462 
023470 
023472 
023500 
023502 
023506 
023512 
023514 
023522 
023524 
023530 
023532 
023536 
023544 
023546 
023554 
023562 
023566 
023574 
023600 
023604 
023610 
r:36l6 
023624 
023630 
023632 



023634 
023642 
023650 
023652 
023654 
023656 
023660 
023662 
023664 
023670 
023674 
023702 
023704 



032777 
001404 
127737 
001465 
105737 
001421 
123737 
101015 
032777 
001404 
013737 
000446 
105037 
005037 
000415 
032777 
001011 
005737 
001406 
005237 
023737 
002024 
012737 
013737 
105237 
113737 
011637 
011637 
005037 
112737 
013777 
013716 
000002 
003720 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
01 7746 
010637 
012737 
000000 
000776 



000400 

155500 

001103 

001115 

001000 

001110 

001103 
001172 

004000 

001214 

001104 
001172 

000001 
023632 
001102 
001102 
001106 
001110 
001174 
000001 
001102 
00M06 



024000 
000340 



155250 
024004 
023706 



155506 
001102 

001103 
155450 
001106 



001104 

001104 
001172 

001212 



001115 
155316 



000024 
000026 



000024 



6$:;#*##/rEND OF CODE FC» THE XOR TESTER##### 



2S: 



7$: 
4S: 



155416 3$: 



1$: 

SSVLAD: 



SOVER: 



SnXCNT: 
.S8TTL 



BIT 
BEQ 
CHPB 
BEQ 
TSTB 
BEQ 

crvB 

BHI 

BIT 

BEO 

MOV 

BR 

CLRB 

CLR 

BR 

BIT 

BNE 

TST 

BEO 

INC 

CMP 

BGE 

MOV 

MOV 

INC8 

MOVB 

MOV 

MOV 

CLR 

MOVB 

MOV 

MOV 

RTI 

2000. 

POWER 



«BIT08.aSUR 
2$ 

iSyR.STSTNM 
SOVER 
SERFLG 
3$ 

SERMAX.SERFLG 
3$ 

«8IT09.iSWR 
4$ 

$LPERR.$LPADR 

SOVER 

SERFLG 

STIMES 

1$ 

«8ini,aswR 
1$ 

SPASS 
1$ 

SICNT 

STIMES, $ICNT 

SOVER 

#1 .SICNT 

smxcnt, stimes 
stst;#i 

stst;#i,stestn 
(sp),slpadr 
(sp). slperr 

SESCAPE 
#1 ,SERMAX 
STSTI#1,aDI SPLAY 
$LPAOR.(SP) 



DOWN AND UP ROUTINES 



LOOP ON SPEC. TEST? 
BR IF NO 

ON THE RIGHT TEST? SWR<7:0> 
BR IF YES 

HAS AN ERROR OCCURRED? 
BR IF NO 

MAX. ERRORS FOR THIS TEST OCCURRED? 

BR IF NO 

LOOP ON ERROR? 

BR IF NO 

SET LOOP ADDRESS TO LAST SCOPE 
ZERO THE ERROR FLAG 

CLEAR THE NlfCER OF ITERATIONS TO MAKE 
ESCAPE TO THE NEXT TEST 
INHIBIT ITERATIONS? 
8R IF YES 

IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
INCREMENT ITERATION COUNT 
CHECK THE NlfBER OF ITERATIONS MADE 
BR IF MORE ITERATION REQUIRED 
REINITIALIZE THE ITERATION COUNTER 
SET NIIQER OF ITERATIONS TO DO 
COUNT TEST NlfCERS 
SET TEST NUMBER IN APT MAILBOX 
SAVE SCOPE LOOP ADDRESS 
SAVE EWWR LOOP ADDRESS 
CLEAR THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOW ONEd) ERROR ON NEXT TEST 
DISPLAY TEST NLPCER 
FUDGE RETURN ADDRESS 
FIXES PS 

MAX. NIMBER OF ITERATIONS 



I*************************************************************** 



:POWER DOWN ROUTINE 

SPWRDN: MOV fSILLUP^aTPURVEC 

MOV #340.a#Pfc«VEC*2 

MOV RO.-(SP) 

MOV RI.-(SP) 

MOV R2,-(SP) 

MOV R3.-(SP) 

MOV R4. -(SP) 

MOV R5.-(SP) 

MOV aSUR,-(SP) 

MOV SP.SSAVR6 

MOV MPURUP.airPWRVEC 

HALT 

BR .-2 



;SET FOR FAST UP 
PRI0:7 

PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
PUSH aSWR ON STACK 
SAVE SP 
;SET UP VECTOR 

HANG UP 



023706 012737 024000 



.-POWER UP RO-JTINE 
000024 SPURUP: MOV #SlLLLP.a#PWRVEC ;;SET FOR FAST DOWN 



.MAIN. MACrll 30A(1052) 1i-«AR-80 07:40 PAGE 5-21 



H 6 



CZKWLA 
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PO^R DOUN A^O 


UP ROUTIF^S 




(1) 


023 /'I *» 




024004 






PlJv 


$SAVR6.SP 


;6ET SP 


(1) 






A5/ AA/ 






n D 
CLR 


$SAVR6 


.-WAIT LOOP FOR THE TTV 


(1) 




n/\C '517 


A5/ AA/ 

U£:4UU4 




1 < - 

i»: 


INC 


$SAVR6 


.-WAIT FOR THE INC 


(^) 


025 fX 


AA1 '77C 








BNc 




;0F WORD 


(I) 




Ai '5X77 


1 CC 5A5 








(SP)*.aSUR 


;POP STACK INTO SSWR 


(3> 


Uc3/^ 30 


A1 










(SP)*,R5 


;POP STACK INTO R5 


f5) 














(SP)*,R4 


;POP STACK INTO R4 


f3) 


A0T7/ 0 


A1 7^A7 








MAI/ 

nOV 


(SP)+.R3 


;POP STACK INTO R3 


(Z) 


A0^7/ / 

\jd5f'*'* 


AI '5XAO 








nOV 


(SP)*.R2 


.-POP STACK INTO R2 


(I) 




UlcoU 1 








■■Al# 


(SP)+. R1 


;POP STACK INTO R1 


(3) 




Al OiLAA 

U 1 cCnrJ 








MAW 

nUV 


{SP)*,RO 


;POP STACK INTO RO 


(1) 




A1 5717 


Uc3o3*» 


000024 




MAW 


#$PWRON,a#PWRVEC 


;;SET IF THE POWER DOWN VECTOR 


(1) 




AI 5717 

Ult:' 3f 


AAA1/.n 

UUU 3*»U 


000026 




MAI/ 

nUv 


#340,arPURVEC*2 ; 


;PRI0:7 


fl) 


\Jd5fOO 


1 A/ / A1 








1 rrt 




.•REPORT THE POWER FAILURE 


H) 


A'5T77A 


A5/ AAil 






CUM ITlMiP - 


.WORD 


PWRMSG ; 


.-POWER FAIL MESSAGE POINTER 


(1) 


nOT770 

U^3^ r d 


A1 571 ^ 








Mm/ 


(PC>*.(SP) 


.'RESTART AT START 


(1) 


A0777/. 


AA1 71 5 






•PWRAD: 


l_IADf\ 

.WORD 


START 


.-RESTART ADDRESS 


(1) 


\JCji »o 










RT 1 




(1) 


02A000 


000000 






SILLUP: 


HALT 




;THE POWER UP SEQUENCE WAS STARTED 


(1) 


024002 


000776 








BR 


.-2 


; BEFORE THE POWER DOWN WAS COMPLE 


(1) 


024004 


000000 






SSAVR6: 


0 




;PUT THE SP HERE 


2591 


024006 


005015 


042522 


052123 


PURMSG: 


.ASCJZ 


<15><12>/RESTARTED FROM POWER FAIl/ 




02A014 


051101 


042524 


020104 












024022 


051106 


046517 


050040 












024030 


053517 


051105 


043040 












024036 


044501 


000114 













SEQ 0075 



2392 






2393 






2394 






2395 






?396 






2397 






2398 






2399 






2400 






2401 






2402 






2403 






2404 






2405 






2406 


024042 


000000 


2407 






2408 






2409 


024044 


000000 


2410 


024046 


000000 


2411 


024050 


000000 


2412 


024052 


000000 


2413 


024054 


000170 


2414 






2415 


024056 


000000 


2416 


024060 


000000 


2417 






2418 






2419 






2420 


024062 


160206 


2421 


024064 


160000 



KW11C BUS REGISTER ADDRESS POINTERS 
' KW118 VECTOR ADDRESS POINTERS 
KW118 DEVICE LEVEL 

COMMAND STATUS REGISTER BIT ASSIG^«ENTS 

COMMON PROGRAM LOCATION (S) 

TSTNLf^: 0 ; CONTAINS TEST MfBER ON ERRQR 

PROGRAM PARAMETER BLOCK 
KONST: 0 
NIMBR: 0 
KOUNT; 0 
COUNTR; 0 
CONST: 170 



RE ADA: 0 
READ6: 0 



»DEVI CE ADDRESSES' 



GSR: 
R60: 



160206 
160000 
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POWER DOWN AND UP ROUTINES 



B 7 



SCO 0079 



2A22 

2A23 

242/« 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2454 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

24^.6 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

/'.77 



024066 
024070 



024072 
024074 
024076 
024100 



024104 
024106 
024110 
024112 
024114 
024116 
024120 
024122 
024124 
024126 
024130 
024132 
024134 
024136 
024140 
024142 
024144 
024146 
024150 
024152 
024154 
024 i 56 
024160 
024162 
024164 
024166 
024170 
024172 
024174 
024176 
024200 
024202 
024204 
024206 
024210 
024212 
024214 
024216 
024220 
024222 



000000 
000240 
000007 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



160002 


R62: 


160002 


160004 


RG4: 

» 


160004 


000300 


0 

PCVO: 


300 


000340 


PSVO: 


340 


000504 


PCV1 : 


304 


000340 


PSVI : 


340 


000006 


* 

8RLV: 


6 



INTERRUPT VECTOR ADDRESSES 



BUS REQUEST LEVEL *•*•*•**••*••* 



;***************OTHER ADDRESSES*********************** 



PRI: 


0000 


DPRI: 


240 


LEVEL: 


7 


Sf TSU: 


0 


SAVR1 : 


0 


HOLD: 


0 


ACSR: 


0 


OCTNLW: 


0 


CQMPW: 


0 


DIGCNT: 


0 


INSWCH: 


0 


YEAR: 


0 


MONTH: 


0 


DAY: 


0 


HOUR: 


0 


niH: 


0 


SEC: 


0 


TIMINV: 


0 


DMONTH: 


0 


DHOUR: 


0 


DTIM: 


0 


STR: 


0 




0 


CNT1: 


0 


COUNT: 


0 


COUNTER 


:0 


SFSUR: 


0 


SWITCH: 


0 


CNT: 


0 


TEMP; 


0 


ADR: 


0 


EXPtT: 


0 


SAFE: 


0 


XX: 


00 


FLAG.1: 


0 


FLAG. 2: 


0 


G00D1: 


0 


TEMPI ; 


0 


TEMP2: 


0 


FLAG: 


0 



.MAIM, mem 30AM052) l5-mR-80 07:40 PAGE 5-23 
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C 7 



SEC 008GI 



^^78 

2479 

2480 

2481 

2482 

2485 

2484 

2485 

?486 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 



25 
25 
25 
25 



024224 
024226 
024230 
024232 
024234 

024236 
024240 
024242 
024244 

024250 

024252 
024254 
024256 
024260 
024262 
024264 
024266 
024270 
024272 
024274 
024276 
024300 
024302 
024304 
024306 
024310 
024312 
024314 
024316 
024320 
024322 



024.324 
024326 
024332 
024334 
024336 
024340 
024344 



000000 
000000 
000000 
000000 
000000 

000000 
000000 
000074 
000 
024250 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



010046 
016600 
005740 
111000 
006300 
016000 
000200 



200 



000002 



024360 



INTSW: 0 

INTRE6: 0 

SOfSWT: 0 

USTPC: 0 

TIWEIN: 0 



0 
0 
74 

.SYTE 
.EVEN 

0 

.EVEN 

ERRPC: 00 



LOG: 
PT: 
HZ: 
000 ECHOB: 

ECHOei 



0,200.0 



DIGIT: 



DIGEND: 



0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



.EVEN 

.S8TTL TRAP DECODER 

• • A******************************* ************ ****** 

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
;*ANO USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;*G0 TO THAT ROUTINE. 



STRAP: MOV 


RO,-(SP) 


.SAVE RO 


MOV 


2(SP) .RO 


;6ET TRAP ADDRESS 


TST 


-(RO) 


.•BACKUP Br 2 


M0V8 


(RO) .RO 


;6£T RIGHT BYTE OF TRAP 


ASL 


RO 


.POSITION FOR INDEXING 


MOV 


$TRPAD(RO).RO ; 


; INDEX TO T/WLE 


RTS 


RO 


:G0 TO ROUTINE 



;;THIS IS USE TO HANDLE THE 'TGETPRI" MACRO 



0245^6 011646 
024350 016666 



000004 000002 



$TRAP2: MOV 
MOV 



(SP),-(SP) 
4(SP),2{SP) 



;;MOVE THE PC 0(MH 
;;MOVE THE PSW DOWN 



.WIN. HACYll 30A(1052) 15H 
CZKULA.P11 1$-PMft*80 07:39 



5-#IAR-80 



<1) 
(1) 
(3) 

(3) 
<3) 
^3) 
<3) 
(I) 
(3) 
(3) 
'3) 
(3) 
C3) 
(3) 
(1) 
(?) 
(1) 
(3) 
(3) 
1 3) 
(5) 
?5U 
2515 
2516 
2517 



c'518 



.'S19 



2520 



'521 



2522 



024356 000002 



07:40 PAGE 5-24 
TRAP DECODER 

RTI 

.S8TTL TRAP TABLE 



D 7 



024360 
024362 
024364 
024366 
024370 
024372 



024346 
020202 
021722 
021676 
021736 
022124 



024374 021002 



024376 
024400 
024402 
024404 



020732 
021254 
021374 
021574 



SEQ 0081 



; .-RESTORE THE PSW 



.-•THIS TASLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;«8y THE "TRAP" INSTRUCTION. 



IT RPAD: 



024406 


042522 


042101 


053040 


EW1: 


024414 


046101 


042525 


042040 




024422 


042111 


023516 


020124 




024430 


040515 


041524 


020110 




024436 


044527 


044124 


042440 




024444 


050130 


041505 


042524 




024452 


000104 








024454 


042522 


042101 


020131 


EM2; 


024462 


0<.4502 


020124 
052040 


040506 




024470 


046111 


020117 




024476 


042525 


000124 






024502 


044524 


042515 


044440 


Eri3: 


024510 


052116 


051105 


040526 




024516 


020114 


047503 


047125 




024524 


042524 


020122 


047504 




024532 


051505 


023516 


020124 




024540 


042504 


051103 


046505 




024546 


047105 


020124 


047111 




0c4554 


047440 


042122 


051105 




024562 


000 








024563 


102 


052111 


021440 


EM4: 


024570 


032061 


044440 


020116 




024576 


051503 


020122 


044504 




024604 


047104 


052047 


051440 




024612 


052105 


000 






02461 5 


102 


052111 


021440 


EM5: 




032061 


044440 


020116 


024630 


051503 


020122 


044504 




02'.636 


047104 


052047 


051040 




024644 


051505 


052105 


000 




024651 


122 


040505 


054504 


EM6: 



ROUTINE 

.WORD 

STyPE 

STyPOC 

STYPOS 

STVPON 

STyPDS 



$TRAP2 

;CALL=TYP£ 
;CALL=TYPOC 
;CALL=TYPOS 
rCALL=TYPON 
:CALL=TYPDS 



TRAP*1 (104401) TTY TYPEOUT ROUTINE 



TRAP*2( 104402) 
TRAP*3( 104403) 
TRAP*4( 104404) 
TRAP*5( 104405) 



TYPE OCTAL NllBER (WITH LEADING ZEROS) 

TYPE OCTAL NJtBER (NO LEADING ZEROS) 

TYPE OCTAL NUMBER (AS PER LAST CALL) 

TYPE DECIMAL NUPeOR (WITH SIGN) 



fGTSUR ;;CALL=6TSWR TRAP*6(104406) GET SOfT-SUR SETTING 

fCKSUR ;;CALL=CICSWR TRAP*7( 104407) TEST FOR CHANGE IN SOFT-SUR 

SRDCHR ;;CALL=R0CHR TRAP*10( 104410) TTY TYPEIN CHARACTER ROUTINE 

SRDLIN ;;CALL=R0LIN TRAP*11 (10441 1 ) TTY TYPEIN STRING ROUTINE 

SRDOCT ;;CALL=RDOCT TRAP*12(104412) READ AN OCTAL NLHBER FROM TTY 

.S8TTL ASCII MESSAGES 

.ASCIZ /READ VALUE DIDN'T MATCH WITH EXPECTED/ 



.ASCIZ /READY BIT FAIL TO SET/ 



.ASCIZ /TIME INTERVAL COUNTER DOESN'T DECREMENT IN ORDER/ 



EM4: .ASCIZ /BIT #14 IN CSR DIDN'T SET/ 



EM5: .ASCIZ /BIT #14 IN CSR DIDN'T RESET/ 



EM6: .ASCIZ /READY BIT DIDN'T SET.YEAR VALUE HAY BE INVALID/ 



nAC^r 30A'1052> 13-«AR-80 
/rj'.A.pn i5-«AR-8o 07:59 
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ASCII MESSAGES 



E 7 



2523 



2525 



2526 



2527 



2528 



2529 



2530 



02<r656 

024664 

024672 

024700 

024706 

024714 

024722 

024730 

024736 

024744 

024752 

024760 

024766 

024774 

025000 

025006 

0250K 

025022 

025030 

025036 

025040 

025046 

025054 

025062 

025070 

025076 

025104 

025110 

025116 

025124 

025132 

025140 

025146 

025152 

025160 

025166 

025174 

025202 

025210 

025212 

025220 

025226 

025234 

025242 

025250 

025256 

025264 

025272 

025300 

025304 

025312 

025320 

025326 

025334 

025542 

C25350 



041040 

042111 

042523 

051101 

042525 

041040 

040526 

042522 

044502 

047104 

052105 

047440 

0441 2-^ 

042525 

043117 

044124 

042040 

054501 

047111 

000104 

042522 

044502 

047104 

052105 

047440 

044124 

042525 

043117 

020122 

044515 

046440 

020105 

044514 

051105 

04 1040 

032461 

020051 

052040 

000124 

051105 

041440 

044440 

046111 

047116 

051105 

041440 

044440 

020124 

047111 

047111 

050125 

046111 

041517 

044127 

050125 

043516 



052111 
023516 
035524 
053040 
046440 
020105 
044514 
042101 
020124 
052047 
047473 
020122 
053040 
100123 
046440 
040440 
054501 
041040 
040526 

042101 
020124 
052047 
047473 
020122 
053040 
100123 
044040 
047101 
052516 
054501 
047111 
000104 
047522 
052111 
024040 
040506 
020117 

047522 
047514 
020123 
020114 
047111 
047522 
047514 
020123 
052522 
000107 
042524 
020124 
052040 
052503 
046111 
040504 
05204U 



042040 

020124 

042531 

046101 

054501 

047111 

000104 

020131 EM7: 

044504 

051440 

042516 

047502 

046101 

047117 
042116 
046440 
020105 
044514 

020131 EM10: 

044504 

051440 

042516 

047502 

046101 

052517 
020104 
042524 
041040 
040526 

035122 EMU; 

021440 

042504 

046111 

042523 

035122 EMI 2: 

045503 

052123 

052522 

000107 

035122 EMI 3: 
045503 
047516 
047116 

051122 EMI 4: 

040506 

020117 

020122 

020105 

044524 

042510 



.ASCII /READY BIT DIDN'T SET;0NE OR BOTH VALUES/<200> 



.ASCIZ /OF MONTH AND DAY MAY BE INVALID/ 



.ASCII /READY BIT DIDN'T SET;0NE OR BOTH VALUES/<200> 



.ASCIZ /OF HOUR AND MINUTE MAY BE INVALID/ 



. ASCIZ /ERROR: BIT #15 (DE) FAIL TO SET/ 



.ASCIZ /ERROR: CLOCK IS STILL RULING/ 



.ASCIZ /ERROR: ClOCK IS NOT RlfWING/ 



.ASCII /INTERRUPT FAIL TO OCCUR yHILE UPDATING THE CLOCK /<:200> 



.fv^:u. nAcm 30a'1052) i3-iw»-80 07xo page 5-26 
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ASCII MESSAGES 



?551 



2553 



2554 
255S 



2556 



,'S57 



2S58 



025556 

02536A 

025566 

025574 

025402 

025410 

025416 

0254?4 

025432 

025437 

025444 

025452 

025460 

025466 

025474 

025502 

025510 

025514 

025522 

025530 

025556 

025544 

025552 

025560 

025566 

025572 

025600 

025605 

025612 

0?5620 

025626 

025634 

025642 

025650 

025655 

025662 

025670 

025676 

025704 

025712 

025720 

025726 

025755 

025740 

025746 

025754 

025762 

025770 

025776 

026004 

026012 

026020 

026026 

026034 

026042 

026050 



041440 
100040 
051120 
042514 
042525 
051105 
055440 
052117 
046102 

120 
020124 
051122 
044504 
047440 
050073 
046102 
051525 
047111 
047040 
040516 
051117 
044440 
042111 
042523 
052514 
047523 
051122 

125 
041505 
047111 
050125 
051440 
052127 
051440 

125 
041505 
047111 
050125 
044440 
053440 
052117 
046102 

125 
041505 
047111 
0501 25 
024040 
040527 
020124 
047125 
052103 
042116 
050130 
041101 
052116 
0521 20 



047514 045503 



041117 
041440 
044440 
052522 
051501 
042440 
042105 
042522 
047111 
050125 
047104 
041503 
047522 
020105 
100105 
051124 
052117 
046102 
040440 
053116 
050040 
020124 
000105 
052106 
051117 
042516 
042524 
042524 
020124 
043117 
047040 
052105 
042516 
042524 
042524 
020124 
052116 
051501 
042440 
042105 
042516 
042524 
042524 
020124 
042504 
020123 
042523 
054105 
042105 
052440 
040514 
042514 
051105 
000 



041101 
052501 
052116 
052120 
047040 
040516 
000 

042523 EMI 5: 
042524 

020124 
052047 
051125 
040502 
040503 

052120 
042440 
020105 
042116 
046101 
042522 
040526 

042440 EMI 6: 
000 

050130 EMI 7: 
020104 
051122 
051501 
051524 
052117 
000 

050130 EM20: 
020104 
051122 
051501 
050122 
047040 
040516 
000 

050130 EM21: 

020104 

051122 

051501 

020051 

047516 

000124 

042520 EM22: 

040440 

042516 

047111 

044440 

052522 



.ASCiZ /PROBABLE CAuSE INTERRUPT WAS NOT ENABLED/ 



-ASCII /PRESET INTERRUPT DIDN'T OCCUR .PROBABLE CAUSE/<200> 



.ASCIZ /INTRPT NOT ENABLE OR AND INVALID PRESEf VALUE/ 



.ASCIZ /SOFT ERROR/ 

.ASCIZ /VWEXPECTED INTERRUPT AS SOFTSWT NOT SET/ 



.ASCIZ /UNEXPECTED INTERRUPT AS INTRP WAS NOT ENABLED/ 



.ASCIZ /UNEXPECTED INTERRUPT AS (DE) WAS NOT SET/ 



.ASCIZ /UNEXPECTED AND EXPLAINABLE INTERRUPT/ 
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?5A0 



254^ 



254 5 



2S46 



'S47 



026055 

026060 

026066 

C26074 

026102 

026110 

026116 

026121 

026126 

026134 

026142 

026150 

026156 

026164 

0261 70 

0261 76 

C26204 

026207 

026214 

026222 

026230 

026236 

026244 

026252 

026256 

026264 

026272 

026300 

026306 

026314 

026321 

026326 

026334 

026342 

026350 

026356 

026364 

026372 

026376 

026404 

026412 

026420 

026426 

026434 

026442 

02644$ 

026452 

026460 

026466 

026474 

026502 

026S05 

026512 

026520 

026526 

026554 



125 
041505 
047111 
040440 
024511 
047040 
052105 

124 
040526 
040506 
020117 
053440 
044040 
044502 
040527 
020124 
051123 

105 
051072 
052111 
020040 
052523 
020105 
052105 
051105 
051120 
054514 
041040 
042111 
042523 

105 
020072 
044440 
040526 
042524 
020124 
052047 
051125 
051105 
023440 
020122 
041040 
052117 
044440 
100122 

105 
021072 
041040 
044501 
051040 
100042 

105 
021072 
041040 
044501 
051040 



042516 
042524 
051124 
020123 
053440 
052117 

000 
046511 
052514 
046111 
047510 
044510 
046117 
100124 
020123 
047111 

000 
051122 
054504 
053440 
047516 
050120 
047524 
000200 
047522 
041117 
023440 
052111 
023516 
100124 
051122 
044524 
052116 
020114 
051122 
044504 
047440 
000200 
047522 
023515 
042050 
052111 
051440 
020116 

000 
051122 
047510 
052111 
020114 
051505 

000 
051122 
047510 
052111 
020114 
051505 



050130 
020104 
052120 
052050 
051501 
051440 

020105 
020105 
052040 
042114 
042514 
020104 

042523 
041440 

051117 
041040 
051501 
020124 
051517 
051440 

035122 
041101 
023515 
042040 
020124 
000 
051117 
042515 
051105 
047111 
050125 
047104 
041503 

035122 
047440 
024505 
047040 
052105 
051503 

051117 
042114 
043040 
047524 
052105 

051117 
042114 
043040 
047524 
052105 



EH25: 



EH24: 



E«25: 



EM26: 



EM27: 



EM30: 



EM31 



EM32; 



6 7 

ASCJZ /IMEXPECTED INTRPT AS (TI) MS NOT SET/ 



.ASCII /Une VALUE FAIL TO HOLD WHILE HOLD BIT/<200> 



.ASCJZ /WAS SET IN CSR/ 



.ASCIZ /ERROR :RDY BIT WAS NO^ SUPPOSE TO SET/<200> 



•ASCIZ /ERROR :PR0BABLy 'M' BIT DIDN'T SET/<200> 



.ASCIZ /ERROR: TI«E INTERVAL INTERRUPT DIDN'T 0CCUR/<200> 



.ASCIZ /ERROR: 'M' OR (DE) BIT NOT SET IN CSR/<200> 



.ASCIZ /ERROR:'mD BIT FAIL TO RESET"/<200> 



.ASCIZ /ERROR:*W)LD BIT FAIL TO RESErV<200> 
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H 7 



SEO 0085 



?548 



^-550 



?552 



?55<. 
2555 
2556 



026542 
026545 
026552 
026560 
026566 
026574 

026610 

026616 

026624 

026626 

026654 

026642 

026650 

026656 

026664 

026672 

026674 

026702 

026710 

026716 

026724 

026732 

026754 

026742 

026750 

026756 

026764 

026772 

026773 

027000 

027006 

027014 

027022 

027030 

027036 

027041 

027046 

027054 

027062 

027067 

027074 

027102 

027110 

027116 

027124 

027126 

027134 

027142 

027150 

027156 

027164 

027171 

027176 

027204 

02721? 



100042 
110 
042440 
021072 
046114 
051440 
052040 
044440 
051125 
000200 
047507 
044440 
052522 
052111 
020125 
053105 
000200 
047111 
050125 
052503 
053440 
046040 
000200 
042047 
052111 
051503 
0461 1 1 
046103 
000 
200 
047506 
047111 
052514 
042522 
043516 
100104 
200 
041511 
051104 
024123 
200 
047111 
050125 
052103 
042104 
000050 
004600 
047111 
050125 
052103 
042104 
031050 
200 
051040 
052123 
046105 



000 
051101 
051122 
051517 
052101 
042505 
020117 
040516 
052101 

020124 
052116 
052120 
020110 
052101 
046105 

042524 
020124 
020122 
047522 
053105 

023505 
044440 
020122 
052040 
040505 

044124 
046114 
020107 
051505 
041040 
052440 
000 
042011 
020105 
051505 
020040 
050011 
042524 
020124 
051117 
042522 

050042 
042524 
020124 
051117 
042522 
036451 
041011 
050505 
046040 
000050 



020104 
051117 
044503 
051117 
051515 
042502 
041503 
021105 

047516 
051105 
053440 
050102 
04604C 
030040 

051122 
041517 
052101 
043516 
046105 

041040 
020116 
040506 
020117 
100122 

020105 
053517 
040526 
040440 
044505 
042523 

053105 
042101 
042523 
000 
020103 
051122 
042526 
040440 
051523 

020103 
051122 
042526 
040440 
051523 
000 
051525 
042525 
053105 



E«3: 



.ASCIZ /HARD ER»OR:'T)SCILLATOR SEEMS TO BE I»4ACCURATE' V<200> 



EM34: .ASCIZ /GOT fJO INTERRUPT WITH 8PU AT LEVEL 0/<200> 



EM35: .ASCIZ /INTERRUPT OCCUR AT WRONG LEVEL/<200> 



EM36: 



.ASCIZ /'DE* BIT IN CSR FAIL TO CLEAR/<200> 



DCMSG1: .ASCIZ <200>/THE FOLLOWING VALUES ARE BEING USED/<200> 



DCMSG2: .ASriZ <200>/ DEVICE ADDRESSES( / 

DCMSG3; .ASCIZ <200>/ PC INTERRUPT VECTOR AODRESS(/ 

DCMSG4; .ASCIZ <200>/ "PZ INTERRUPT VECTOR ADDRESS(2)s/ 

DCMSG5: .ASCIZ <200>/ BUS REQUEST LEVEL (/ 
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2557 


027216 


004600 


042042 


020117 


DCMSG6: 


. ASCIZ 




027224 


047531 


020125 


040527 








027252 


052116 


052040 


020117 








027240 


044103 


047101 


042507 








027246 


040440 


054516 


047440 








027254 


020106 


044124 


051505 








027262 


020105 


040526 


052514 








027270 


051505 


024040 


020131 








027276 


051117 


047040 


037451 








027304 


000042 






DCMS67: 






027306 


021200 


047105 


042524 


.ASCIZ 




027314 


020122 


040526 


052514 








027322 


020105 


043101 


042524 








027330 


020122 


036450 


020051 








027336 


051511 


052040 


050131 








027344 


042105 


000042 








2559 


027350 


036451 


000 




DCMS6X: 


.ASCIZ 


2560 


027353 


200 


044124 


020105 


PASMS6: 


.ASCIZ 


027360 


046103 


041517 


020113 








027366 


040520 


051523 


042105 








027374 


052040 


042510 


051040 








027402 


046105 


052101 


053111 








027410 


020105 


041501 


052503 








027416 


040522 


054503 


052040 








027424 


051505 


100124 


000 






2561 


027431 


105 


051122 


051117 


DHl; 


.ASCII 




027436 


020040 


052040 


051505 








027444 


021524 


020040 


051440 








027452 


047510 


046125 


020104 








027460 


020040 


020040 


040527 








027466 


020123 


041440 


051123 








027474 


200 










2562 


027475 


120 


020103 


020040 




.ASCIZ 




027502 


020040 


020040 


020040 








027510 


020040 


020040 


042502 








027516 


000 










256? 


027517 


105 


051122 


051117 


0H2: 


.ASCII 




027524 


020040 


052040 


051505 








027532 


021524 


020011 


041440 








027540 


051123 


100011 








256A 


027544 


041520 


000 






.ASCIZ 


2565 


027547 








0H3: 




2566 


027547 


200 


051105 


047522 


DH3: 


.ASCIZ 




027554 


020122 


041520 


000200 






2567 


027562 


051105 


047522 


020122 


DH4: 


.ASCIZ 




027570 


020040 


042524 


052123 








027576 


020043 


020040 


051120 








027604 


051505 


041505 


020040 








027612 


041440 


051125 


042523 








027620 


020103 


041440 


051123 








027626 


000200 










c»568 


027630 


050040 


000103 






.ASCIZ 


?569 


027634 


051105 


047522 


004522 


DH5: 


.ASCIZ 




027642 


042524 


052123 


100043 








027650 


000 












027651 


120 


000103 






.ASCIZ 



: .ASCIZ <20C>/ 'DO YOU tMNT TO CHANGE ANY Of THESE VALUES (V OR N) 



ASCIZ <200>/' INTER VALUE AFTER (=) IS TYPED"/ 



ASCII /ERROR TEST* SHOULD WAS CSR/<200> 



BE/ 



ASCII /ERROR TEST# CSR /<200> 
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?S71 
?S72 

?S73 

2574 
?575 

2576 
2577 
2578 
2579 



027654 
027662 
027670 
027676 
027700 
027704 
027712 
027720 



001116 
001126 
001116 
000000 
001116 
001116 
016550 
001116 



000001 
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J 7 



SEO 0087 



024042 001124 DTI - 

001122 000000 

024042 001122 DT2: 

000000 DT3: 

024042 016554 0T4: 

001122 000000 

024042 000000 DT5: 



.EVEN 

SEftfiPC , 7STNLM.GO0D,BA0.BADA.0 
SERRPC , T S TNIM ,BAOA . 0 
tERRPC.O 

f E RRPC . T S TNlf< . PRE SE C . SE COND . 8ADA , 0 
SERRPC.TSTNIW.O 



.END 
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SEO 0088 



<«ASE - 
ACOWl = 
AC0W2 = 
ACPUOP- 
ACSR 

AOOWO = 
ADDW1 = 
ADDW10= 
ADDW11= 
AD0W12= 
ADDW1 3= 
ADDW1A= 
ADDW15= 
A0DW2 = 
ADDW3 = 
ADDWA = 
ADDW5 = 
ADDW6 - 
ADDW7 = 
ADDW8 = 
A00W9 = 
ADEVCT= 
ADE\/M = 
ADR 

AENV = 

AENVM = 

AFAfAL= 

A«ADR1 = 

AMADR2= 

AMADR3= 

AMAORA= 

AMAMS1 = 

AMAMS2= 

AMAMS3= 

AMAMS4= 

AMSGAD-- 

AMSGLG- 

AWSGTY= 

AMTYP1 I 

AMTYP2- 

AMTYP3 

A/1TYP4-- 

APASS 

APRIOR^ 

APTCSU= 

APTENV^ 

APTSIZ= 

APTSPO= 

ASUREG= 

ATESm= 

AUNIT = 

AUSUR - 

AVf(n = 

AVECT2- 

A.f - K 



160096 
000000 
000000 
000000 
024120 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
024200 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

oooooo 

000000 

oooooo 

000040 
000001 
000200 
000100 

oooooo 
oooooo 
oooooo 
oooooo 

160300 

oooooo 

0U7SA 



1 


77 

J J 


T7 

3 J 




IT 

3 J 




<X 

J J 




710 




CjCJ 


?\?7 


xx 




XX 

J J 




77 

J J 




77 

J J 




77 




77 




77 




35 




77 




77 




77 




35 




77 




53 




53 








33 




33 




24684^ 




35 




33 




33 




33 




33 




33 




33 




33 




33 




33 




33 




33 




33 




33 




33 




33 




33 




33 




33 




33 




2580 


2381* 


2380 


2381* 


254 


2381* 


2380 


2381* 


35 




33 




53 




35 




16* 


33 


55 




414 


1820* 



1331 
2330 



1558 1547* 1365 1372 
2545* 2549 2552 2444* 



1485* U98 



1507 



1514 



2015* 2523* 



2387 
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BAD = 001126 
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L 7 
USER svreoLS 



SEQ 0089 



BAOA = 001122 



8ASEN0 

BASIC 

BASTAB 

BITAB 

BITEN 

BITO = 

BITOO = 
BIT01 = 
BIT02 = 
8IT03 = 
BIT04 = 
BIT05 = 
BIT06 ~ 
BIT07 = 
BIT08 = 
BIT09 = 
Bin ~ 
BIT10 ^ 
BIT11 ^ 
BIT12 - 
8IT13 = 
BITK = 



011^2 
011050 
011220 
004376 
004436 
000001 

000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 



BIT15 100000 



BIT2 = 
BIT3 = 
BIT4 = 
BITS = 
BIT6 = 
BIT7 = 
BITS = 
BIT9 ^ 
BPTVEC= 
8RLV 
CHKINT 
CKSWR = 

CNT 
CNTLC 

CNT1 
COMHA 

CONST 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000014 
024102 
005374 
104407 

024174 
016106 

024162 
024124 
024054 







y. An* 


HO f 




*• f c* 


/ 7X 
Sf J 


/ TO* 


/ (IT* 

Ao3* 


HO* 


526* 




536 


6<:1* 


AO/. 


Of *i" 


A7t; 
Of 5 


7n7 


7Q5* 


/t3 


finx* 
oUj* 


oi 1 
01 1 


01 5*. 
O IC* 


BIT 

81 5 


822 


823* 


oc*» 


alt 




flXS 


o*»0 




BZO 

0*IT 


Q5Z * 


05A 
T^O 


OTO* 
ViT* 


Qy A 


W3* 


QQC 

tV5 






lUoi ■ 


mflx 

\\JOi 


IUOt* 


IUtU 


1 5nc« 

lcU5* 


1 5ftA 


1 TOB* 
13^0* 


1 JCT 




1356 


1362* 


1 JO J 


1 TAO* 

1 joy* 


1 X7n 


1 STM ■ 


1ZQA 


1 CAX* 


1 cnc 

1 5Uj 




1515 

1 Mc 


5T/ Z * 


5C75 
25f2 






•»f J" 




C5B* 
JCO* 


CXB« 




CC5* 


A57* 
6^f • 


"71 A* 

f ly* 


71 T* 


7y 1 m. 

/4 1 • 


7y 

f 4o* 




ni ^* 


OcO" 


RAO* 


R<t1 • 


OD5" 


a7X« 

Of J" 


o5n« 

TCU" 


Q5B* 
T^O* 


tj5* 


QZ 5* 
T*«C* 




OQ7* 










1 l/TO" 


1 1 A^* 


1 i^n* 


1 1 75« 

1 1 f c" 


1 xia* 

1 J 10* 


1 XXI * 


1 XXB* 


1552* 


1565* 


1372» 


1379* 


1421* 


1431* 


1446* 


1457* 


1466* 


1475* 


1489* 


1498* 


1507* 


1514* 


1643* 


1663* 


1688* 


2137* 


2147* 


2182* 


2325* 


2572 


2573 


2575 






1 1 

1 1 Oc 


1 1 HZ. 


1 PflOir 
















































11111 

1 1 0 1 


1 ?1 Xir 


























HT Iff 


























HOT 
























"iLM 
1 Hm 




^AS 


^7A 
5f O 


7X7 

f jf 


7XO 

I JT 


7ZX 
f *»j 


7ZA 
f hO 


777 

Iff 


77Q 

f f T 


7BX 


70B 


oiU 


OCT 

yLM 




1 575 


1 57a 


1 5az 


cvOo 












1 Hm 


























1 




















































f 


























1 LJt 

t 




















































14* 


























14# 


2389 
























14# 




7XR9 

C JOT 
























1?^7 

1 C J' 


IPSA 


1 COO 


1 V Oc 












































1 *f w 






















































2 1 14 


2166 


2173 


2180 


2208 


^¥ OT 

2387 
















S41 




Rn7 


015 

T 1 C 


151X 

IC I J 


15A0 


1A1A 

1 H 1 0 


1AX0 

1 03t 


10CA 

IT5H 


evr o 


51 ?0 


51 5A 




OO 1 


Out 


01 7 

T 1 f 


0X5 

TJC 


070 

Tl T 


ORX 

tOJ 


inA5 


in7X 

1 Uf J 


1077 

Ivf f 


1 Utc 


1 1 XX 


1 m5 


1 1 W 1 


1 ?10 


1 CCJ 


1 C 


■ cDw 


1 XII 




1AA1 


1AS0 

1 05t 


loot 


5150 
C 1 cw 


C 1 CO 


51 X5 

C 1 JC 


C 1 Oj 


?1 70 


5177 


ccVO 


55?R 














0?X 


T jO 


15X1 


17S5 


















1 Air 


J 1 o 




A5n 

Ocw 


M7 

OTf 


70R 

' TO 














































AQ7 
























1 XII 


1 XAS 
1 JH J 


1 ARA 

1 HOH 






















Oft? 


1077 


1 ooo 




510X 

C 1 TJ 


55nH 


555fl 
cccO 












1 Air 


JO 


LVi 






















lAir 


























14# 


























Of J 


?xn^ 




5AXSir 




















650# 


























388 


444 


488 


512 


556 


564 


603 


613 


631 


688 


720 


736 


751 


859 


905 


967 


1C53 


1131 


1180 


1301 


1410 


2387 


2389 


2513* 






1711* 


1712* 


1715* 


1728* 


2^669 


















443 


487 


511 


555 


563 


602 


612 


630 


687 


719 


735 


750 


855 


858 


887 


903 


966 


1052 


1130 


1179 


1300 


1409 


1517 


2047* 






246U 


























1564* 


1578* 


1588 


1607 


1612 


















565* 


580 


589* 


594* 


597* 


1999 


2050 


2065 


2090 


2413* 
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CCNT 


01602A 


19%» 


2005* 


2006 


2008* 


2019* 


















C0NT1 


016026 


1997* 


2009* 


20'' 1 


2020* 




















C0NT2 


016102 


2029* 


20 3A* 


2035 


1A7^7-- 

2037* 


20A2* 


















C0NT5 


01 61 OA 


877* 


986* 


4 1 7a ^ 

1138* 


4 4 ^ 

1156* 


4 4 ^ f ^ 

1165* 


1A7fk^ 

2038* 


2043* 














CCNTA 


016520 


2086* 


2093* 


209A 


2096* 


14 A9 M 

2103* 


















C0NT5 


016322 


2087* 


2097* 


2098 


210A* 




















COUNT 


02A16A 


171A* 


1717* 


1723 






















COUNTE 


02A166 


2A65* 


























COUNTS 


02A052 


520* 


917* 


932* 


981* 


1 A7C ^ 

1075* 


14 Z 7^ 

2163* 


14 7/\ ^ 

2170* 


14 77-t 

2177* 


^^4 A^ — 

2192* 


2195* 


2205* 


2210* 


2225* 






2230* 


22A1* 


<:Ai2* 


















CR = 


000015 


1A# 


2380 
























CRLF = 


000200 


1A# 


255 


2580 






















CSR 


02A062 


356* 


A36 


/ 7A^ 

A39* 


/ C C ^ 

455* 


y cn 

A59 


/ i T 

463 


466* 


A67* 


468 


475 


477* 


479 


486 






516* 


518* 


c io 

528 


538 


C/ 1 

541 


c/ c 

545 


Cr A 

550 


CCI 

552 


566* 


568* 


576* 


617* 


620* 






627 


655* 


656* 


696* 


697* 


713 


71 D^ 

718* 


737* 


77 A 

739 


^y 4 

741 


^y * ^ 

7A3* 


^y / - 

744* 


746 






7A8 


7r5* 


777^ 


Try 


TOT 

783 


798* 


804 


OA7 

807 


809* 


ik4 A^ 

810* 


04 C 

815 


820* 


826 






829* 


832* 


O / A 


0A5* 


OC1 

851 


861* 


c 

865 


869* 


077 

873 


910* 


/^4 *^ ^ 

912* 


917 


920 






923* 


928 


ATI 

932 


ATC 

935 


938* 


A/ 1 

942 


A7A 

970 


A70^ 

978* 


979* 


A07 

983 


997 


1005 


1056 






1062* 


1067 


1072* 


1073* 


1 A77 

1077 


1 AOC 

1085 


1 AAI^ 

1092* 


1 f\t\d 

1096 


1 4 71^ 

1132* 


4 4 77-t 

1133* 


4 4 y c 

11A5 


4 4 Cf\ 

1150 


1152* 






1161* 


1 i 7T 


1 1 DC ^ 

1185* 


1199* 


1 11 / 


1 11A 

1220 


4 11Z 

1226 


1 17 1 

1232 


4 170 

1238 


4 *iy y 

1244 


4 '\^A 

1250 


4 1P<* 

1255 


1261 






I O^ 7 

1267 


1273 


1 170 

1279 


1 IOC 

1285 


1 TAA^ 

1509* 


4 74 4 

1311* 


1 71 D 

1518 


4 714 ^ 

1321* 


4 7/ 7-» 

13A3* 

4 y y y 

1AA6 


4 7 y c ^ 

1345* 


4 9C* 1 

1352 


1355* 


1379 






1 / 1 C A 


i / i ^ A 

IhIO* 


lA21 


1 / 1C A 

1A25* 


1 / I^A 

1426* 


1 / 71 

1A31 


4 / y A^ 

1AA0* 


4 / / 4 

1AA1* 


4 y CA^ 

1450* 


4 y c 4 ^ 

1A51* 


1457 


1461* 






1 / d^d. 

lAoo 




1 / 7C 

1 AO 


1 / Dl A 

ih81 * 


1484* 


1 y DA 

1A89 


1 / 

1A92* 


1 7A^ 

1659* 


1 ^ y 7 

16A5 


4 ^ y c ^ 

1645* 


1 Z C A^ 

1659* 


4 ^ ^ 7 

1663 


1666* 








l05O 


ioy2* 


1 f 52* 


1 r62* 


1 770^ 


i 7DAa 

1789* 


1 0^1 A 

1862* 


1 AA1 A 

1901* 


1 AC 1 ^ 

1951* 


1 ACy 

195A 


4 AC^ 

1956* 


2015 






dOft 


20oo 


oil/ 

211 A 


11 IAa 

2 i2U* 


01 oy A. 
2124* 


2128* 


2132* 


11 77 

2157 


01 y 7 

21A7 


■14 Z 1 ^ 

2161* 


14 ^ 7 

2163 


14 Z ^ 

2166 


*^4 y A ^ 

2168* 






21 /^O 


11 7T 

21 o 


Ol 7C^ 

21 (^5* 


11 77 

21 


11 DA 

2180 


11 01 

2182 


11 OC^ 

2185* 


11 AT 

2195 


11AZ 

2206 


111^ 

2226 


2268 


1T17 

2323 


2324* 






IT/ C 


IT/ ^ A. 


O/ OAm 

2A20* 




















DAY 




1656 


1 05* 


oy c 1 A 

2A5 1* 






















DCMSGX 


027350 


2262 


2278 


2309 


ICC Am 

2559* 




















DCMSGl 


026773 




























DCMSG2 


0270A 1 




ICC 7m 

2553# 
























OCnSGi 


0c706r 




ICC/ « 
























DCMSG4 


0271^6 


2555# 


























DCMSG5 


0?7l ^1 


2304 


2556* 
























DCMSG6 


0?72l6 


255r# 


























DCMSG7 


027506 


2256 


2558* 
























OCA 




ccbyff 


T07O 
CCfC 
























DC5 


01 OcA 


2266 


2c f 5ft 
























r\ ^ ^ 

DC6 


A -1 7C Ay 

Ol 750A 


2282 


2305* 
























DC7 


0175A2 


2313 


2315* 
























DDISP = 


1 77570 


1A# 


77 

33 


1C / 

25A 






















OECOC 1 


01A22A 


1592 




1 771 

1732 






















DELAt 


A1 ^ i C 

016152 


821 


OTT 

833 


2062* 


11 / / 

21AA 




















fNC 1 TAT 

OcLTAr 


A1 Z CO 

01655^ 


2151* 


























DEVCOO 


A1 7^T/ 

01 723A 


A09 


2251* 
























DHOUR 


AT/ ICO 

02A 1 52 


860* 


870 


881 * 


OO 1 

882 


884* 


ooc 

885 


1 ^ Ai ▲ 

1691* 


oy cyu 

2A57* 












OHi 


02'A3i 


36 


A6 


Z 1 

62 


67 


71 

72 


1 A7 

103 


1 AA 

109 


114 


1 77 

157 


1/1 

142 


1 0/ 

fi 


2561* 




uric 




^1 
*» 1 

157 


168 


jf 

189 


2563* 




as 




oa 

TO 


lev 








0H3 


0275A7 


17A 


2565* 


2566* 






















DMA 


027562 


163 


2567* 
























DH5 


02763A 


179 


2569* 
























DIGCNT 


02A126 


1566* 


1576 


1577* 


158A 


1585* 


1606* 


1609 


1614 


2447* 










DJGEND 


02A316 


1586 


2509* 
























DIGIT 


02A25A 


1562 


1618 


1731 


2^920 






















007010 


85ar 


876 
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OISPLA 

DISPLY 

DISPRE 

0«XTH 

DMT 

DPR I 

DSWR = 

DTIM 

DTI 

DT2 

DT5 

0T4 

DJS 

ECHOe 

ECH0B1 

EMTVEC= 

EMI 

EMIO 

EH11 

EMI 2 

Fm3 

EMU 

EMI 5 

EMI 6 

EMI 7 

EM2 

EM20 

EM21 

FM22 

EH23 

FM24 

EM25 

FM26 

EM27 

EM3 

EM30 

EM31 

EM32 

FM33 

EM34 

EM35 

EM36 

EMS 
E«6 

EM7 

ERRPC 

ERRVEC= 

EXPCT 

FLAG 

FLAG.1 



001 142 
007022 
0001 74 
024150 
017206 
024106 
177570 
024154 
027654 
027670 

027700 

027704 

027720 

024244 

024250 

000030 

024406 

025040 

025152 

025212 

025250 

025304 

025437 

025572 

025605 

0244*^4 

025655 

025733 

026004 

026053 

026121 

026207 

026256 

026321 

024502 

026376 

026445 

026505 

026545 

026626 

026674 

026734 

024563 

02461 5 

024651 

024730 

024252 

000004 

024202 

024222 

024210 



F.AG.2 024212 



33# 
861# 

27» 
1669* 
521 
649* 

14« 
2458# 

37 

42 
158 
175 
164 
180 
1590* 
1572* 

14/r 

35 

71 

76 

81 

86 

92 

97 
102 
107 

40 
113 
118 
124 
129 
135 
141 
146 
151 

45 
156 
162 
167 
173 
178 
183 
188 

50 

56 

61 

66 
2491# 

14^ 
569* 
1710* 
524 
1148 
1473 
2178 
260* 



254* 
868 
254 
2456« 
917 
652* 
33 

47 
53 

169 
2574# 
2575# 
2576# 
1591 
1573 

254* 
2517* 
2525* 
25270 
2528# 
2529xr 
2530* 
2532* 
2534* 
2535* 
2518* 
2536* 
2537* 
2538* 
2539* 
2540* 
2542* 
2543* 
2544* 
2519* 
2545* 
2546* 
2547* 
2548* 
2549* 
2550* 
2551* 
2520* 
2521* 
2522* 
2523* 



2387* 
883 



932 
653 
254 

63 
58 
190 



2487* 
1950* 



2389* 
886 



982 
686 



68 

78 
2573* 



1953 



TABLE ~ 



1076 
904 



N 7 

USER svnacLS 



SEO 0091 



73 
83 



2163 
1299 



104 
89 



1961* 1962 



2170 
U08 



110 
94 



2489* 



2177 
2439* 



115 
99 



2240* 



138 

121 



143 
126 



IBS 
132 



2572* 
148 



155 



254* 


259* 


348* 


2386* 


2389* 








574* 


578 


587 


593* 


596* 


2469* 






2477* 
















863 


871 


915 


918 


933 


968 


991 


1054 


1154 


1163 


1170 


1192 


1325 


1359 


1376 


1419 


1565* 


1641 


1661 


1667 


1686 


2117 


2122 


2126 


2191* 


2197* 


2204* 


2214* 


2224* 


2234* 


2240* 


2243 


271 


273* 


296* 


654* 


661 


695* 


702 


704 



1065 

1429 

2130 

24724 

1310* 



1079 


1094 


1143 


1444 


1455 


1464 


2135 


2164 


2171 


1316 


1324* 


1344* 
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B 8 

TABLE — USER SYMBOLS 



SEO 0092 



FLOAT 

GETRDY 

GETTIM 

GET1 

GET2 

G£T3 

GET4 

GNS = 



002302 
016324 
016522 
016356 
016404 
016506 
016520 
• ••••• [j 



GOOD = 001124 



GtX)D1 024214 



GTSWR : 

HELP 

HOiO 

^KJLTS7 

HOUR 

HT 

HZ 

INIPRE 

INSWCH 

INTREG 

INTRPT 

INTRTN 

INTSU 

I0TVtC= 

KIPAR0= 

MPAR1 = 

KIPAR2= 

KIPAR5= 

P(;IPAR4= 

KIPAR5= 

KIPAR6= 

KIPAR7= 

K1PDR0= 

K1P0R1= 

K1PDR2= 

KIPDR5= 

KIP0R4= 

KIP0R5= 

K1P0R6= 

KIPDR7= 

•CONST 

HOUNT 

LASTPC 

LEVEL 

lF 

IKS = 
LOC 

LOGTST 



104406 
002770 
024116 
006170 
024140 
000011 
024242 
016560 
024130 
024226 
017554 
015726 
024224 
000020 
172340 
172342 
172344 
1 72346 
172350 
1 72352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
024044 
024050 
024232 
024110 
000012 
1 77546 
024236 
004002 



1350 
256# 
729 
785 
2115 
761 
2127 
2119 
27 
1558 

22» 
618* 
811* 
926 
1090 
1368* 
457* 
707* 
255 
369 
2443# 
775* 
1670 

14* 
1910 
1414 
2448* 
650* 
370 
659 
2478* 
14* 
26* 
26* 
26* 
26* 
26* 
26* 
26* 
26* 
26* 
26* 
26* 
26* 
26* 

2t5* 

26* 
26* 
2409* 
515* 
2481* 
651* 
14* 
17* 
2484* 
395 



1558* 


1482* 


1487 


1493* 


2000 


2326* 


2338* 


2543* 


2348* 


2358* 


2473* 


867 


875 


972 


1058 


1069 


1174 


1195 


1424 


21 K* 






788 


2144* 




















2118 


2120* 




















2124* 






















2131 


2137* 




















2123 


2136 


2 140* 


















255 


577 


378 


379 


380 


381 


382 


383 


TO/ 

384 


385 


430 


1559 


1560 


1622 


1 fbO 




1833 


4 0// 

1844 


^C4 T 

2515 








456* 




461 


469* 


470 


473 


480* 


M D4 

481 


484 


527* 


534* 


O 1 T 


A3?* 




O' 


Of 3 


OVO* 




f U3* 


f UO 


7Q1 • 


rV3* 


813* 


822* 


824* 


834* 


835* 


838* 


846* 


848* 


849* 


911* 


914 


940 


977* 


980 


994* 


995 


1002* 


1003 


1071* 


1074 


1082* 


1083 


1203* 


1206 


1308* 


1312 


1527* 


1329 


1334* 


1336 


1342* 


1346 


1361* 


1370 


1495* 


1496 


1504* 


1505 


1511* 


1512 


2572 








458* 


460 


470* 


471* 


472 


481* 


482* 


483 


623* 


624* 


625 


708 




















428 


2057 


2513* 


















375 


377* 


421 


425 

















2386 



519* 

664* 

2380 
1903* 

435* 



438 

536 
802* 
925* 
1^* 

706* 



1736* 


2452* 


2380 




2486* 




2161* 




689* 


717* 


2293 


2322* 


701 


1315 


254* 




2386 





1307* 
1349 



1375* 
1486 



1413* 
1995* 



1520* 2333 2335 2355 



2479* 



522 
674 
1904 
1522 



527 
2440* 



532* 2411* 
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L.CLK 

L.CNT 

L.EN01 

L.END2 

L.TAB1 

L.T/W? 

ftlVEC = 

MONTH 

NEWTIM 

NLM 

NLMBR 

N.CNT 

N.CON 

OCTMOO 

OCTNUM 

PASMSG 

PCVO 

PCVl 

PIRO = 

P1RQVF= 

PKBUf = 

PKCNT = 

"KCSR = 

POINTR 

PREOLT 

PRE SEC 

PRESET 

PR I 

PRO = 
PR1 

PR? - 
PR5 
PR4 
PR5 

PR6 = 
PR7 = 
PS 

PSVO 
PSV1 
PSW s 
PT 

PWRMSG 
PWRVEC= 
P.CLK 
P.CNT 
P. END 
P. TAB 
RANDOM 
RANKTA 
ROCMR - 
ROLIN = 
RDOCT = 
RDYBIT 



015360 
015532 
0155A2 
015552 
015534 
0155AA 
024 U2 
000250 
024154 
013136 
015554 
024160 
024046 
015722 
015724 
002522 
024122 
027355 
024072 
024076 
^77772 
000240 
172542 
1 72544 
172540 
014416 
016556 
016554 
012224 
024104 
000000 
000040 
000100 
000140 
000200 
000240 
000300 
000340 
177776 
024074 
024100 
177776 
024240 
024006 
000024 
015220 
015346 
015356 
015350 
010530 
002566 
104410 
104411 
104412 
017000 



1830 
1909* 
1914 
1921 • 
1899 
1918 
1682 
26# 
1646 
399 
1845 
1709* 
515* 
1947* 
I960* 
261 
1563* 
1878 
360 
365 
14* 
14# 
20# 
2U 
19/r 
1706 
2153* 
2145* 
1408* 
352* 
14* 
14* 
14* 
14* 
14* 
14* 
14* 
14* 
14* 
371* 
373* 
14* 
2485* 
2390 

14* 
1842 
1871* 
1874 
1860 
1130* 
263 
1570 
391 
2263 
863 
1359 



1896* 

1912 

1955* 

1939* 

1932* 

1936* 

1737* 

1754* 
1558* 
1947* 
1718* 

531* 
1957* 
1978* 

310* 
1713* 
1925 

370* 

372* 



1863* 

1865* 
1739* 

2152* 

371 



450 

2286* 
2290* 
450* 

2391* 
254* 
1857* 
1872 
1888* 
1885* 

329* 
2382 
1822 
2279 

871 
1376 



I 40 PAGE 6-5 
CROSS REFERENCE 



19-»9 1931* 



C 8 

TABLE — USER SYMBOLS 



SEO 0095 



2455* 

2450* 
1581 



1726* 
1970 
2271 
2289* 



1866 



611 

2287* 
2291* 
611* 



2390* 
1884* 



2513* 
1834 
2310 
915 
1641 



1623 



1720* 1721 
535 2410* 
1964 1977* 



1730 
2560* 
2275 
2297* 



2575 
373 2438* 



2295* 
2300* 
653* 



2383 
2513* 
968 
1661 



1724* 2460* 



2445* 

2283 
2298* 



2285* 
2429* 



2292* 2293* 2427* 



2295 2301 



2428* 
2301* 
686* 



2430* 

904* 1299* 



1408* 



2513* 

1054 
1667 



1065 
1686 



1094 
2117 



1136 
2122 



1U8 
2126 



1154 
2130 



1165 
2155 



1192 
2191* 



1325 
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D 8 

USER SVfQOLS 



SEO 009*. 



ROYCK 

ROYCKl 

READ 

RE ADA 

REAOe 

REQ 

RESTRT 

RESVEC: 

RGO 



RG2 
R04 



ROUT" 

SAfE 

SAVR1 

Sf( 

StfONO 
SETUP1 
SETUP? 
SETUP5 
SETUPS 

srswR 

SFTSW 
SOFSWT 
SRO 
SRI 

SR2 : 

SR3 = 

STACK 

START 

STW.«T= 

STR 

SWITCH 
SWR 
SUREG 
SWO - 
SWOO : 
SW01 
SWOf 
SWOl 
SW04 
SW05 
SW06 

syo7 

SW08 
SW09 

swi 

SWIO 
SW1T 
SU12 
SWT 3 



017120 
017040 
014426 
024056 
024060 
000001 
003530 
000010 
024064 



024066 
024070 



003776 
024204 
024114 
024144 
016550 
002632 
002656 
002700 
002714 
024170 
024112 
024230 
17757? 
177574 
177576 
172516 
001100 
001712 
1 77774 
024156 
024172 
001140 
)176 
)1 
)1 
02 



MOOO 



1454 
1418 
404 
577. 
585* 
24# 
376 

14# 
283* 
1240 
1640* 
285* 
1362 
287* 
762 
985 
1864* 
27 
2470# 
2442# 
985* 
792 
290 
356# 
363# 
258 
2464# 
244 U 
1567* 
26M 
26# 
26M 

^(,M 

254# 
14# 
1708* 
1568* 
33# 
27M 
14# 
14# 
14# 
14# 
14# 
14# 
14# 
14# 
U# 
U# 
U# 
U« 
14« 
14# 
H# 
1U 



1463 


2221* 




1428 


1443 


1472 


1750* 






578 


584* 


585 


593 


596 


2416* 


386* 


400 


405 


862* 


914* 


924 


1252 


1257 


1269 


1660* 


1669 


1753 


870* 


1063* 


1074* 


1369 


1442* 


1462* 


517* 


522 


526 


763 


765 


776* 


988 


1137 


1140 


1868 


1902* 


1906 


432* 






988 


1137* 


1140 


2146* 


2150* 


2575 


348* 







366 
367* 



2480* 
2386* 



2202* 



587* 


591 


2415* 








410 


416 


429 


431 


2054 


2382 


939 


980* 


993 


1001 


1093* 


1153* 


1275 


1312* 


1328 


1335 


1417* 


1427* 


1763 


1773 


2116* 


2121* 


2125* 


2129* 


1081 


1089 


1135* 


1162* 


1228 


1246 


1503 


1685* 


1691 


1790 


2134* 


2169* 


567* 


569 


577 


584 


619* 


621 


778 


781 


799 


800 


803 


812 


1147* 


1155 


1158 


1164 


1167 


1287 


1952* 


1960 


2075* 


2146 


2176* 


2344 


1155* 


1158 


1164* 


1167 


2454* 





2386* 








254 


389 






432 


237? 


2376 


2390 


1723* 


1726 


17?7* 


2459* 


2465* 








254* 


255 


2382* 


2387 


254 


255 


2382 





1216 


U22 


1234 


1453* 


1494 


1521* 


2162* 


2259 


2421 4r 


1263 


1261 


1346* 


2422* 






657* 


699* 


716* 


823 


837 


847 


1471* 


1510 


1807 


2347* 


2(,21M 





2389 2390* 
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CROSS 


Cijl L 




^LM 






JW 1 J 


1 WUVA/ 


14# 










14# 






lim J — 


WW 1 V 


14# 








\AAA/CV 


14* 






^u*; - 




14# 






ClU. - 




14* 










14* 






owo — 




14# 








W ' VA/V 


14# 






TAR 


\J \J 1 1 c 


1963 


1973* 








892 


900* 






VWr W 


964* 






01 01 so 


105U 






TAanR4 


01 14^ 


1299* 










907 


909 


959* 


TARFN? 




974 


976 


1043* 






1060 


1070 


1122* 




vice > c 


1303 


1378 


1381 




01^1 ^4 


1412 


1550* 


TAflLFI 


007S74 


906 


946* 




TARl FP 


01004? 


973 


1008* 




1 rmJU L. -J 




1059 


1099* 




FABLE 4 


01P15? 


1302 


1382* 




TAfil FS 


01^0A4 


1411 


1527* 




TAB. EN 




1966 


1976* 




TBI TVF- 


000014 


14# 






T CNf 




830* 


844* 


2075 


TEMP 


0?4 1 7h 


2467* 






2322* 


2475* 






0?4??0 


2342* 


2476* 






0?4P^4 

VC HC JH 


2482* 






00SlS4 


615 


632 


642* 




W*Jvvt 


693 


721 


728* 






658* 


700* 


1314* 


TIMF 1 




611* 






686* 










2455* 






TIMQUT 




259 


296* 






V 1 r Owe 


372 


2298 


2342* 


tjhtab 




614 


633* 


T IMTA1 




691 


722* 








14* 








14* 










14* 


254* 




TRAP4 


01 7770 


348 


2364* 




TR T VF r = 


ononis 


14* 








2387* 


2406* 


2572 


TST1 


004100 


449* 


rsno 


006124 


760# 






TSTll 


006160 


773* 








007000 


857* 






TST1? 


007216 


902# 






TSTT4 


007560 


963* 






rsTi*; 


010520 


M29* 






rsn6 


011040 


1178* 
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E 8 

TABLE — USER SYMBOLS 



SEQ 0095 



139a* 



2079* 



1348* 1485* 2011 



2021# 



2573 



2575 2576 



CZKWLA 

TSn7 

TST2 

TST20 

TST3 

TSH 

TST5 

T5T6 

TST7 

TrPOS = 



Trpoc s 

TfPON = 

TYPOS = 

WAIT 

WAIT1 

WAIT2 

XX 

YEAR 

YERTN 

$APTHD 

$ASTAT= 

JATYC 

tATYl 

JATY3 

JATY4 

SAUTOe 

tSASE 

SeOADR 

S80DAT 

SBELL 

$rowi 

$CDW2 
SCHARC 
SCKSUR 
tCMTAG 
$fM3 ^ 

$crv« = 

SCNTLC 

SCNTLG 

tCNTl U 

SCORE 

tCPUOP 

KRLF 

tCROUT 

SDBLK 

tODWO 

SDDW1 

SDOwn 
tD0Wl2 

snowi3 

fODWU 
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CROSS REFERENCE TABLE ~ 
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USER SVWOlS 



SEC 0096, 



01U24 
00<,440 
0122K 
00<.730 
005166 
005356 
005540 
006010 
104405 
104401 



104402 
104404 
104403 
01603? 
016226 
016204 
024206 
024132 
013702 
001000 
**•*•• 

020510 
020464 
020472 
020502 
001134 
001262 
001122 
001126 
001176 
001266 
001270 
020460 
020732 
001100 
000000 
000005 
021532 
021544 
021537 
022556 
001234 
001203 
022606 
022340 
001272 
001274 
001316 
001320 
001322 
001324 
001326 
001330 



1298# 
510* 
1407# 
562# 
610* 
648* 
685# 
734# 
1761 
255 
438 
1844 
2365 
2260 
251 3# 
251 3# 
878 
738 
831 
2471* 
1632 
1593 
32* 
2381 
2381* 
2381* 
2380 
2381* 
33* 
33* 
25 
23 
33* 
33* 
33* 
2380** 
2382* 
33* 
33* 
33* 
2382* 
2382* 
2382* 
2386* 
33* 
33* 
2386* 
2385* 
33* 
33* 
33* 
35* 
33* 
33* 
33* 
33* 



1771 


1785 


1788 


1802 


1806 


1810 


2376 


377 


378 


379 


380 


381 


382 


383 


1558 


1559 


1560 


1573 


1591 


1598 


1599 


1878 


1925 


1953 


1962 


1970 


2255 


2257 


2376 


2380 


2382 


2384 


2385 


2387 


2388 


2276 


2307 


2370 


2382 


2387 


2388 


2513* 


987 


1139 


1157 


1166 


2028* 






745 


2085* 












845 


2075* 













1733* 
1631* 



2381* 
2387 
255* 
289* 
33* 
33* 
2387 



2513 
254 



386 



2513* 
384 

1622 
2261 
2390 



385 
1750 
2273 
2513* 



386 

1751 
2277 



387 
1821 
2303 



430 
1833 
2308 



2449* 



2382 
356 



1599 1751 



2380 



2382 2387 



2388 
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CROSS 


U>0w2 


001276 


33* 






tD0w3 


001300 


33* 






tD0W4 


001302 


33* 






SODWS 


001304 


33* 






tD0y6 


001306 


35* 






*00w7 


001 310 


33* 






sooys 


001312 


3V 






SD0W9 


001 3K 


33* 






SOEVCT 


001216 


33* 






tOEVM 


001 26A 


33* 






tOOAGN 


0201 56 


2376* 








022330 


2385* 






It NO AO 


020 146 


30 


255 


2376* 


ttNDCT 


020114 


254 


2376* 






020165 


2376* 






tfNULL 


020162 


2376* 






KNV 


001226 


33* 


255 


2380 


tENVW 


001227 


35* 


254 


2380 




020060 


1523 


2376* 




ttOPCT 


020106 


254* 


2376* 




•cRFLG 


001 i03 


33* 


2387* 


2389* 


If WlAX 


lie 


33* 


254* 


2389* 


»t RROR 


0c^6!^6 


254 


2387* 


2389 


»cRRPC 


00 1 1 16 


33* 


2387* 


2388 


#c tio ro 


001 55c 


33* 


2388 




IcRRTY 


02 5206 


2387 


2388* 




#r* n T T 1 

*cRi iL 


AAI 1 1 *1 

001 11*? 


33* 


2387* 




ScSCAP 


001 1 


33* 


254* 


2387 


p T Am 


001 «6 


33* 






»c TtNiJ 


001552 


32 


33* 






AA1 ^ t A 

0012 "0 


53* 


2381* 




V FLG 


AlA'y TA 

0?0r 50 


2381** 






t r ■ 1 1 ^ 

>F ILLC 


AA1 i 

001 I o6 


33* 


2380 




>F ILL S 


AA1 ICC 

001 1 


53* 


2380 




# ^ r\ Ann 


AAl 1 "^A 

00 1 120 


33* 






A /'Pv^ A T 

KiDDAT 


AAl 1 ■!/ 

001 i?4 


22 


33* 






0201 56 


2576* 






»C>TSWR 


0^1002 


2382* 


2513 




JMIBTS 


00 lOOO 


32* 






tHIOCT 


021674 


2383** 






tlCNT 


AA 1 ^ A/ 

001 104 


33* 


2389* 




»1LI UP 


f\'\j AAA 

02^000 


2390* 








AAl 1 TC 

001 1 5!) 


33* 


2382 






001 1 lA 


33* 


2387* 


2388 


WCTNtX 


A^'^C C A 

022550 


2386* 






iKJOin 


022540 


2386* 








022406 


2386** 






W F 


001204 


33* 


2380 


2382 




\lc\Jf C f 


2381** 






UPADfl 


001106 


33* 


254* 


2389* 


tlPERR 


001110 


33* 


254 • 


2387 


USTAO 


022652 


2386** 






U ST8K 


022654 


?386*« 






IMAPR1 


001240 


33* 






$«ADRJ 


001244 


33* 








001250 


33* 
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REFERENCE 



TABLE — 
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USER SYMBOLS 



I 

SEQ 00971 



2587 



2381 
2581 



2572 
2389« 



2587 



2573 



2574 2575 



2576 



2387 
2389* 



MAIL 
SMAMS2 

VBADR 

VVLG 
SMNEW 
SWSGAD 

visac 

trtSGTy 

tMSUR 

VITYP1 

s«rYP2 

VIXfNT 

$NULL 

tNWTST= 

tOCNT 

tonooc 

$OVER 

tPASS 

tPASTM 

tPURAD 

SPWRON 

SPWRMG 

tPWRUP 

SOUtS 

WDCHR 

WDDFC= 

SRDLIN 

tfiDOCT 

SfiDSZ ~ 

tRTNAO 

tR2A = 

$SAVRf= 

SSAVR6 

tSCOPE 

SSErUP= 

SSIZE 

tSJZEX 

tSTUP = 

SSVLAD 

tSVPC = 

$SWR = 

ISWREG 

$TESTN 
tTIMES 
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H 8 

USER Sv»«)lS 



SEC 00981 



001254 33* 

001206 32 

001236 7> 
001242 35* 

001246 33* 

001252 33* 
001002 32* 
020726 2381** 
021562 2382* 
001222 33* 
001224 33* 
001206 35* 
021551 2382* 

001237 33* 
001 2/. 3 33* 

001247 35* 

001253 33* 
023632 2389* 
001154 33* 
000001 449* 

1178* 

022120 2384*- 

022122 2384*« 

023616 2389* 

0012K 33* 

00(006 32* 

023774 2390* 

023634 254 

023770 2390* 

023706 2390* 

001202 33* 

021254 2382* 

u 2513 

021374 2382* 

021574 2383* 

000010 2382* 

020160 1522* 

****** U 2513 

****** u 2513 

024004 2390** 

023342 254 

000137 252* 

022350 2386* 

022612 2386* 

17>77> 252* 

023562 2389* 

000204 30* 

167400 11* 
902 

001230 33* 

000000 2389 

001212 33* 

001172 33* 
902* 

001 K6 33* 

001144 55* 



33* 2^4 



2581- 
2581* 
2581* 



2380 
510* 
1298* 



254* 
2390* 



387 
2513 

2513 
2513 

2376* 



2389* 
254 



255 2580 2587 2389 



562* 610* 648* 
1407* 



2576* 2589 



1598 2380 2382 2387 



685* 734* 760* 773* 



857* 



902* 963* 1129* 



255 



2376 2382 2387 2389 



33 


254 


449 


510 


562 


610 


965 


1129 


1178 


1298 


1407 


2376 


254 












2589* 












254* 


590* 


449* 


510* 


562* 


610* 


965* 


1129* 


1178* 


1298* 


1407- 


2376* 


1950 


1961 


2049 


2382 






1948 


1958 


2047 


2382* 







648 
2387 



648* 
2589* 



685 
2389 



685- 



754 
2590 



734* 



760 773 857 



760* 775* 857* 
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ITWPO 


001160 




33* 








ITMPI 


001162 




33* 








tTW>2 


001164 




33* 








1THP3 


001166 




33* 










001 1 70 




55* 








tTN = 


000021 




12* 


449* 


?1U* 




1 lew 


1178* 


icVo* 




$TPB 


001152 




TT M 

53* 


2380* 






tTPFLG 


001157 




TT« 

33* 


2380 






$TPS 


0011 50 




35* 


2380 






STRAP 


024 32A 




254 


2513* 






STRAP2 


024346 




251 3* 








ITRP - 


000013 




25 1 3* 








STRPAO 


024560 




■^C IT* 

^515* 








$TSTM 


/\A1 AAy 

001004 














001102 






2376* 


^3o^ 


STTVIN 


021522 




ciodif 








tT VPBN= 


ft # # * A # 


u 




2515 






IT YPOS 








£ J 1 5 




tTyPE 


A^AIAI 




TTBA* 

^5oU* 


2381 




STYPf C 


A^A/ i / 

0204 K 




')TOA* 

?5oO* 


2382 






»T YPt X 


020462 




4:500* 








IT YPOC 


02i fee 






2513 






»T YPON 


mi 77/. 
Oc 1 ' 3o 






2515 






» TYPOS 


0^10/^0 






2513 






KJNI T 


OOlccU 












SUNI Tn 


A/M A1 A 

OOlOlO 




3c* 








SUSUR 


001232 




53* 




3o1 




SVt C T 1 


/\A4 1 C ^ 

001256 




53* 


349 




SVECT^ 


A/M 

001 ^oU 




55* 








SXT5TR 




























WFILL 


022121 




2384*» 




2389 




WOCAT 


000000 




Z7M 


2387 


32* 


• " 


027726 




27 M 


30* 


31* 






932 


1558* 


1559* 


1560* 








2l%2» 


2385* 


2387 


2388* 


.iASTA= 


» * t 


u 


2381 








.$X 


001000 




32* 









TABLE 



610* 



33* 

1833* 
2389 



I 8 

USER SVW)IS SEO 



648* 685* 734* 760* 773* 857* 902* 963* 



254 255* 377* 379* 380* 383* 430* 917 
1844* 2163 2170 2177 2368* 2376 2380 2381* 
2390 2488* 
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TABLE — MACRO IWV€S 



SEO 0100 



CQWEN 

CO«PAR 

OECHK 

DECLR 

ECHO 

ECM01 

ENOCCH 

FRROR 



ESCAPE 

GETPRI 

GETSWR 

MULT 

NEWTST 

POP 

PUSH 

ROYCK 

REPORT 
SCOPE 

SETPRI 

SETTRA 

SETUP 

SKIP 

SLASH 

SPACE 

STARS 



SWRSU 

fRMTRP 

TYPBIN 

TYPOEC 

TYPNAM 

TYPNUM 

TYPOCS 

TYPOCT 

TYPTXT 

SSCMRE 
SSCMTM 
ttESCA 
S$^€UT 

SSSET 

$$Sfc TM 

$$SK1P 

.EOUAT 

.HEADE 

.KTII 

.Sf TUP 



14# 
245# 
228* 
235* 
217* 

225* 
M,M 
U# 

79S 
1006 
1339 
1644 
14* 
14* 
14« 
14* 
14* 
1298 
14* 
14* 
212* 
1641 
14* 
14* 
1298 
14* 
2515* 
14* 
14* 
14* 
14* 
14* 
963 
2589 
14* 
2513* 
14* 
14* 
7* 
14* 
7* 
14* 
14* 

33* 
14* 
14* 
1298 
2513* 
254* 
14* 
7* 
6* 
6* 
6* 



70^ 


O 1 J 


VOL 


R^ 


849 




















917 


952 


2165 


2170 


im 


























S59 


546 


555 

J J J 


628 


666 


677 


711 


714 


742 


749 


78^ 




816 


827 


841 


852 


866 


874 


921 


929 


956 


945 


971 


990 


998 






1086 


1097 


1142 


1 146 


1151 


1160 


1 169 


1175 


1 194 


1208 


1 519 


155? 


13S3 

1 J J J 


1566 


1375 


1580 




1452 


1447 


1458 


1467 


1476 


1490 


1500 


1508 


1515 








1916 


19P5 


1968 


2158 


2185 


2529 


2532 


P537 


2551 






2386 




























?55# 




























449 


510 


562 


610 


648 


685 


754 


760 


773 


857 


902 


963 


1129 


1178 


1407 




























2381 


2583 


2585 


2590 






















2381 


2585 


2585 


2590 






















865 


871 


915 


968 


1054 


1065 


1094 


1148 


1154 


1165 


1192 


1325 


1559 


1576 


1661 


1667 


1686 


2117 


2122 


2126 


2130 


2155 














449 


510 


562 


610 


648 


685 


754 


760 


775 


857 


902 


965 


1129 


1178 


1407 


2576 



























254 



50 
1129 
2390 
254* 



2576 
14* 

14* 

2582 
377 
1750 



449 
1407 



14 

26 
252 



32 
1178 
2407 



255 



2587 
378 
1821 



510 



55 
1298 
2515 



449 
1407 



510 
2576 



562 
2380 



610 
2581 



648 
2382 



685 
2585 



754 
2584 



760 
2585 



775 
2386 



2588 
379 580 
1855 1844 



562 



610 



581 



648 



582 



685 



585 



754 



584 



760 



585 



775 



450 



857 



458 



902 



965 



857 
2387 



902 
2388 



1558 1559 



1560 



1129 1178 
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''ZHWLA, 


PI 1 1 ?-mR-80 








.»ACT1 






.SAPTB 




J J" 


•lAPTH 


9m 




.%APU 


90 


2381 


.ICMTA 


70 




• SEOP 






.lERRO 


80 


21B7 


.tERRT 




2588 


.IPOWE 


70 


2390 


. WDDt 


90 




.SRDOC 


60 


2383 


-IRE AD 


90 


2382 


.tSCOP 


80 


2389 


.tSIZE 


6# 


2386 


.tTRAP 


60 


2313 


.STYPD 


80 


2385 


T wric 

.»Typt 


90 


2380 


.STYPQ 


70 


238A 


•/.nr- « 
. »*«ULA 


70 


27 


ASS « 


027726 


000 


ERRORS 


DETECTED 


. 0 



CZKWLA.8JN.CZKWLA.LST/CRF=CZKWLA.Pn 
RUN-TJME: 66 35 4 SECONDS 
RUN-TiME RATIO: 158/106=1.4 
CORE USED: 28K (55 PAGES) 
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